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Programming 
The 280 Chip 


A brand-new world of 
machine language 
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When the Going Gets Tough, 
the Bard Goes Drinking. 


are magic, the Bard is ready 
to boogie. All he needs is 
a band of loyal followers: 
a light-fingered rogue to 
find secret doors, a 
couple of fighters 

to bash heads, a con- 

jurer to create weird 

allies, a magician for 
magic armor. 

Then it's off to com- 
bat, as soon as the Bard 
finishes one more verse. 
Now what's a word that 
rhymes with “dead ogre?” 


A the going is tough 
in Skara Brae town. 
The evil wizard Mangar 
has cast an eternal winter 
spell. Monsters control 
the streets and dun- 
geons beneath. Good 
citizens fear for their 
lives. What's worse, 
there's only one tavern 
left that serves wine. 
But the Bard knows 
no fear. With his trusty 
harp and a few rowdy 
minstrel songs he claims 
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Full-color scrolling dungeons. 
16 levels, each better than the 
one before. 3-D city, too. 


128 color monsters, many 


animated. All challenging. 


The Bard's Tale” 


from 


Specs: 100% 
To order: Visit your re 
Arts, PO Box 306, 
Apple is a trademark af A 
Blectronie Ares are trademarks 
Arts, 2759 Campus Drive, San M. 


2 disks, 64K RAM minin 
In Calif call (800) 562 


le I family for $44.95, C-64 & 128 for $39.95 


ter hase by mail, send check or money order to Electronic 
insured shipping Allow 1-4 weeks for delivery. The Bards Tale is worth the wait 
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The Infinity Mac 
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of eternal 


\\ 


@& What is the Infinity Machi 
A: A unique and revoluti@flary accessory for the Commodore 64 
cartridge now lets you effortlessly 
ible games without being killed! 


jands of published action and animated games 
programming device called “Sprite collision 
’’, are disabled by the Infinity 
ie and the Infinity Shield protects the player 
ing shot or crashing! 
ft can Inow do in a. game that | couldn’! before? 
hivating the cartridge enables you to: Enter a game at any level you 
“Explore all the areas and levels of the game and find the parts 
the game you didn’t know existed without being killed.” Deactivating th 
cartridge at any point you choose enables you to continue fo play the game 
totally normally, 


The Infinity Machine is brought to you at $24.99 by Mastertronic, producers (4 /\/ /-/ 
of incredible value Commodore 64/128K software such as Slugger, 5-a-side Affe 
Soccer and The Last VB all available at $9.99. M A g 6 


Contact the Mastertronic hot line for the secret of eternal life on 301-695 8877. 
Mastertronic International Inc., 7311b Grove Road, Frederick, Maryland 21701 


Discover the thrill of 


with COMPUTE! Books’ aa 
40 Great Flight Simulator Adventures 


Maneuver around the towers of the World Trade Center. 
+Sightsee the Hudson River. 
*Practice night flying and aerobatics. 


40 Great Flight Simulator Adventures 

Charles Gulick 

Forty exciting, customized flight simulator scenarios put you in the 
pilot's seat as you fly over bridges, around skyscrapers, and land 
at mysterious airports. Flight Simulator (IBM PC) and Flight Simu- 
lator Il (Apple Il, Commodore 64, Atarl) are two of the most popu- 
lar games/simulations for personal computers. With this book, you 
can experience flight adventures from the moment you load the 
program. Parameters set up each flight and a running commentary 
describes what you'll see (and where to look to see it). Ranging 


SIMULATOR from the simple and straightforward to the advanced and even 
‘ ADVENTURES mystical, these 40 flights will open a new dimension to an already 
J outstanding program. 


$9.95 ISBN 0-87455-022-X 


Sharing tout tho shotouphre, gh hts 
fight scenarios put you In the pilot's seat Note: Flight Simulator from Microsoft Corporation or Flight Simulator I 
from Sublogic Corp. is required in order to use this book. The book is 


designed to enhance the programs. 


| Please send me —_______ copies of 40 Great Flight Simulator Adventures at $9.95 each. | 
| (ISBN No. 0-87455-022-X) | 
| Alllorders must be prepaid in (LS. funds. | 
| subtotal To order this exciting adventure guide, mail | 
NC residents add 4.5% tax = ——_____ the attached coupon with your payment to 
| $2.00 shipping and handling COMPUTE! Books, P.O. Box 5038, | 
charge per book. a F.D.R. Station, New York, Ny 10150. Or call 
| Total amount enclosed ee toll free 1-800-346-6767 (in NY 212-887-8525.) | 
| 1 Payment enclosed (check or money order) | 
| Charge O Visa O MasterCard O American Express | 
Name 
| Address | 
| City State Zip | 
| Please allow 4-6 weeks for delivery. | 


COMPUTE! books are available in the U.K., Europe, the Middle 


COMPUTE! E! Publications; Inc. abc) East, and Africa from Holt Saunders, Ltd., 1 St. Anne's Road, 


Eastbourne, East Sussex BN21 3UN, England. 


Faster and Farther 
with COMPUTE!’s 


40 More Great Flight Simulator Adventures 


This follow-up to the popular 40 Great Flight Simulato: 
Adventures brings you 40 more exciting, suspenseful _ 
flight simulator scenarios to help you get the most _ 
enjoyment from your Flight Simulator or Flight Simu- 
lator II software. mi 


40 More Great Flight Simulator Adventures ; 
Charles Gulick 
Microsoft's Flight Simulator (IBM PC) and Sublogic’s Flight Simulator II (Ap- 
ple Il, Commodore 64, Atari) are two of the most popular software pack- 
ages today. They put you in the pilot's seat, letting you experience the _ 
thrill of flight. Now, 40 More Great Flight Simulator Adventures, the sec- 
ond such guide, brings you more dazzling flights drawn from both fact and 
incy, : - 
Now you can fly where no one has flown before, with the author as 
your flight instructor, He helps you explore the unknown regions of flight 
simulation—taking you through cities, over mountains, under bridges—as _ 
you explore America from the air. Complete parameters and instructions 
at each step make flight easier and more exciting than ever before. 
$9.95 ISBN 0-87455-043-2 


Note: The Flight Simulator program itself is not included and must be pur- 
chased separately. 


To order any COMPUTE! book, call toll free 800-346-6767 (in NY 212-887-8525). 
Or mail in the attached coupon with your payment. Include $2.00 shipping and 
handling per book. 
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(ISBN 0-87455-043-2) 


All orders must be prepaid in U.S. funds, 
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Anne's Road, Eastbourne, East Sussex BN21 3UN, Eng- 
land and in Canada from McGraw-Hill, Ryerson Ltd., 330 
Progress Ave., Scarborough, Ontario, Canada MIP 2Z5. 
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Nobody’s quite sure what program- 
ming talent is, where it comes from, 
or whether or not there are correla- 
tive talents. It is popularly assumed 
that facility in math ties in with ap- 
titude for computer programming. 
Some colleges even make math 
courses prerequisites to a major in 
computer science. 

However, an extensive survey 
of the best programmers at a major 
American corporation revealed that 
there is no direct link between 
mathematical facility and the abili- 
ty to effectively communicate with 
computers, Instead, the survey un- 
covered a strong correlation with 
musical ability and with those who 
had majored in English. 

It’s easy enough to guess why 
English majors would do well— 
they’ve spent years developing 
their ability to communicate effec- 
tively, and programming is essen- 
tially a special kind of commu- 
nication: man to machine. 

What musical aptitude has to 
do with it is somewhat less easily 
imagined. Some have suggested 
that music combines the freedom of 
expression of art with formal rules 
and that, like programming, it calls 
upon a person's imagination while 
simultaneously requiring a focused 
attention to the rules of the game. 

Recent studies of elementary 
and junior high school students 
who show an aptitude for computer 
programming have revealed an in- 
teresting relationship: the best pro- 
grammers also scored highest on 
personality tests in the areas of 
adaptability and flexibility and 
scored lowest on tests of rigidity. 
This parallels somewhat the musical 
abilities association and suggests 
that these personality types flourish 
in the atmosphere of restrained free- 
dom characteristic of both musical 
and programming activities, Nota- 
bly, students scoring at the extreme 
ranges of the masculinity /femininity 
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scales correlated poorly with pro- 
gramming skill. In fact, any rigidi- 
ties of behavior seemed to retard 
programming abilities, 

Of course, much more study 
needs to be done before any truly 
predictive tests can be developed. 
These early studies reveal tentative 
correlations, but it’s too soon to 
know whether these results will en- 
dure, will eventually prove to be 
substantial indicators of this new 
talent. 

And there are clearly many 
kinds of programming. Designing 
the most efficient sorting algorithm 
in machine language requires con- 
siderable experience and not a little 
patience. Working with a team to 
put together an airline reservation 
application program demands tol- 
erance of the considerable delay be- 
tween actions and results as well as 
the capacity for intensive communal 
labor. Writing an arcade game calls 
upon special imaginative gifts and a 
sensitivity to playability, that balance 
between simplicity and challenge. 

Programs are created when the 
programmer communicates rules 
for the computer to follow, man to 
machine. But there’s another more 
important act of communication— 
the interaction between the com- 
puter and the program’s user. This 
is communication machine to man. 
No matter how full of features, how 
speedy or well-constructed it is, a 
word processor which doesn’t com- 
municate effectively with the user 
will never become popular. Per- 
haps it’s in this area of program- 
ming, often called the user interface, 
where the abilities of English ma- 
jors are particularly valuable. 

Ultimately, it would be quite 
valuable to be able to know in ad- 
vance who is and who isn’t likely to 


SSeS 


do well talking to machines. Chil- 
dren could be guided into or away 
from this field; corporations would 
be able to refine their hiring meth- 
ods; and otherwise potentially ex- 
cellent programmers wouldn't be 
excluded from computer science 
courses simply because they 
weren't adept at calculus. However, 
it's equally possible that there is no 
reliable predictor and the only 
proof of programming ability is the 
writing of a good program. 

Here at COMPUTE! we've pub- 
lished excellent programs created 
by every age group, from every 
geographical area, programs writ- 
ten by college professors and high 
school students—in short, polished 
programs written by a complete 
spectrum of educational and occu- 
pational backgrounds. No real pat- 
terns have emerged except that the 
majority of submissions are from 
males. But computers are a quite 
new phenomenon and they are rap- 
idly penetrating the population at 
large. We'll keep a lookout. If any 
trends develop, we'll let you know. 


el 


Richard Mansfield 
Senior Editor 


First, there was PHANTASIE” one of the most popular 
fantasy role-playing .. | games ever made. 


Now, a new adventure 


For no reason other than for perverse’ } This exciting adventure can start 
pleasure, the Dark Lord Nickademus’ Hy di , right away bya quick’ visit to) your 
fashioned an evil orb, through j : local computer/software or game 
which he cast a curse ona Ai i i I} i store today! 

Tigre ia at j } TT } Mi iy, ||) Ipthere are no convenient 

turers under your guid- 

ice 


itis il Nip 
lon‘t worry. You can 
always start with new: 2 i i 5 
_ characters that range Nag PY 5 1 ig f " q ‘GAMES TODAY. 
| from mere humans'to 1) om d , ! ON DISK FOR 
exotic, unearthly | ASK APPLES 
creatures. 


sae ( 


A AOU, ROWE. «= Asampte ofrecrutts from the YOUNIS map but durgeons | |) Your group hadjound Pluto's 
ness your band must explore. Adventurers’ Guild. ahalfenidoyr hideous monsters, |)))) Palace tithe Netherwortd) |) 
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Earth will be d i i 
e destroyed in 12 minutes 
to make way for a hyperspace bypass. 
° ° e 
Should you hitchhike into the next galaxy? 
e 
Or stay and drink beer? 
Arthur Dent, the dubious hero of THE HITCHHIKER’S 
GUIDE TOTHE GALAXY, aside-splitting masterwork 2 \_ 
ofinteractive fiction by novelist Douglas Adams and  —_ ee ; 
make will shape the story’s outcome. Suppose for ~~ é 
instance you decide to linger in the pub. You simply i map \ 
type, in plain English: 
And the story responds: 
YOU GET DRUNK AND HAVE A TER- 
RIFIC TIME FOR TWELVE MINUTES» 
THE PUB) THEY ALL 
CLAP YOU ON 
THE BACK 


Slip the disk in your computer and suddenly you are £ 
Infocom’s Steve Meretzky. And every decision you 
DRINK THE BEER 
ARE THE LIFE AND SOUL OF 


WRAP THE TOWEL AROUND MY HEAD 
And the story responds: 

THE RAVENOUS BUGBLATTER BEAST OF 
TRAAL 1S COMPLETELY BEWILDERED, 

AND. IT IS SODIMIT THINKS IF YOU CAN‘T 
TELL YOU SEE IT, IT CAN’T SEE YOU, 

, WHAT A GREAT Simply staying alive from one zany situa- 
aie i a ee en Dg | tion to the next will require every proton of 
HEN i puzzle solving prowess your mere mortal 


UNEXPECTEDLY DEMOLISHED, YOU ! 
WAKE UP WITH A HANGOVER WHICH LASTS mind can muster. So put down 


FOR ALL ETERNITY, YOU HAVE DIED, Rete ry that beer and hitchhike 
Suppose, on the other hand, you decide to: : down to your local 
>EXIT THE VILLAGE PUB THEN GO NORTH } software store today. 


In that case you'll be off on the most mind-boggli Before they put that 
hilarious adventure any earthling ever had. ; bypass in. 
You communicate—and the story responds—in full 
sentences. So at every turn, you have literally thousands 
of alternatives. If you decide it might be wise, for s 
instance, to wrap a towel around your head, just say so: A 


& destruction of your hon 
For more information call 1-800-262-6868. Or write tous 
Aer interae at 125 CambridgePark Drive, Cambridge, MA 02140, 


©1085 Infocom, Inc, THE HITCHHIKERS GUIDETO THE GALAXY is a trademark of Douglas Adams. PLANETFALL, STARCR( G are trademarks of INFOCOM, Ine 


feocloack 


Do you have a question or a problem? 
Have you discovered something that 
could help other Commodore users? 
We want to héar from you. Write to 
Gazette Feedback, COMPUTE!’s GA- 
ZETTE, P.O. Box 5406, Greensboro, 
NC 27403. We regret that due to the 
volume of mail received, we cannot 
respond individually to programming 
questions. 


Switching Cases 

I was recently fooling around with 

CHR$ and discovered that PRINT CHR$ 

(14) puts the letters into upper/lower- 

case mode. Is there a CHR$ that changes 

them back to uppercase /graphics? 
Matthew Whitaker 


Try PRINT CHRS(142) for uppercase/ 
graphics, You can find a complete list of 
these CHR$ codes (also called ASCII 
codes) in an appendix at the end of your 
user's guide, 


The Grammar Of Disk Commands 

How do I rename or scratch a program? 

When I try the examples in the disk 

drive manual, they don’t work. The 

commands I’m using are 

PRINT#15, “RENAMED: newname=old 
name” ,8 

PRINT#15, “SCRATCHO: programname” 
8 


Julie Anne Mood 


Computers are quite literal and are sensi- 
tive to spelling and syntax. You've made 
at least one error—the ,8 should not be in 
the command, Also, before you PRINT# to 
channel! 15, it must be opened. Type 
OPEN 15,8,15 to prepare channel 15; 
when you're done sending disk com- 
mands, CLOSE 15 turns it off. 

All disk commands can be abbreviat- 
ed to a single letter; “R” instead of “RE- 
NAME" and “S" instead of “SCRATCH”. 
This saves you a little typing. Also, the 
character after the command is the num- 
ber zero (0), not the letter O. So, to scratch 
a file called PINETREE, enter the three 
lines below: 

OPEN 15,8,15 
PRINT#15, “SO:PINETREE” 
CLOSE15 


To rename a file currently called 
OAK to the new name CEDAR, enter these 
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three lines: 


OPEN 15,8,15 
PRINT#15, “RO:CEDAR =0:0AK” 
CLOSE15 


Readers who own a 128 can use the 
built-in SCRATCH and RENAME com- 
mands instead of going through the disk 
command channel. 


Orderly Characters 


I'm taking a computer class in high 
school, My teacher showed us a pro- 
gram that waits for you to press a key 
and then prints the character and its 
ASCII code. I translated it to Commo- 
dore BASIC (listing enclosed). Most of 
the keys work, but some don’t. Can you 
explain what's wrong? 

Mark Riddle 


One of the lines in your program is IF 
A$>="'0" THEN 50. Line 50 then 
prints the character and its ASCII code. If 
the character in A$ is less than “0”, the 
program loops back to check for another 
key to be pressed. 

Look for an appendix that lists ASCII 
and CHRS codes in the back of your user's 
guide, the book that came with the com- 
puter. These are Commodore ASCII codes, 
not true ASCII, so they may differ slightly 
from the ASCII you've studied in school. 
Some of the numbers are different, but the 
idea is the same. 

When your computer executes the IF 
statement, what it’s really doing is check- 
ing the ASCII value of the string variable 
A$ against the ASCII value of the string 
literal “0”. (A string literal is a series of 
zero or more characters inside quotation 
marks.) The character “0” has an ASCII 
value of 48, as you'll see if you examine 
the appendix in the user's guide, Or type 
PRINT ASC(“0") to see what your com- 
puter says. You could also try PRINT 
CHRS(48), to verify that character num- 
ber 48 is a zero. 

Your program is almost correct, but it 
prints only characters higher than “0” on 
the list of ASCII codes. It ignores charac- 
ters such as !, #, or / (with corresponding 
ASCII codes of 33, 35, 47) because they're 
less than CHRS(48), the string literal “0”. 
To fix it, change the IF statement to IF 
A$>= CHR$(0), or if you want to bypass 
the control codes (color changes and the 
like), IF A$S>= CHR$(32). 


Editors and Readers 


Making Backups 
I always use the Wedge program that 
comes on the 1541 Demo disk. I have 
tried repeatedly to copy the two sepa- 
rate programs from the Demo disk. I 
can save the BASIC program called ““C- 
64 WEDGE”, but no matter whatI try, I 
am unable to save the “DOS 5.1” pro- 
gram, the machine language portion of 
the Wedge, Can you set me right? 
James C, Platt 


BASIC programs like ““C-64 WEDGE” are 
easy to load and save using the commands 
BASIC offers. BASIC also has a provision 
for loading machine language (ML) pro- 
grams. Just add the number 1 after the 8 
(for example, LOAD “DOS 5.1,8,1). Un- 
fortunately, there is no command to save 
an ML file on the 64, Many other comput- 
ers, including the Commodore 128, have a 
command to do this (BSAVE). 

One solution is to use the “MLX” 
machine language editor. This only works, 
however, if you know the starting and 
ending addresses of the program you're 
trying to save. To back up DOS 5.1, you'd 
load and run MLX and give it a starting 
address of CC00, ending address CFFF. 
Load DOS 5.1 from MLX, switch disks, 
and save to the new disk (see the MLX in- 
struction page for more details). If you 
don't know the starting and ending ad- 
dresses of the program, you can’t use MLX 
to make a backup. 

The following short program simpli- 
fies the copying of Commodore 64 pro- 
gram files. It works with both ML and 
BASIC programs. Before you run it, put a 
disk into the drive. When the program is 
run, it writes a program called COPYIT 
on the disk. 

SE 10 OPEN2,8,1, "COPYIT": PRINT 
#2,CHRS$ (0) ;CHR$(192); 
C=0 :FORA=1T0139 :READB:C= 
C+B: PRINT#2,CHRS$(B);:NEX 
T:CLOSE 2 
IFC<>26455THENP RINT" 
{CLR} (2 DOWN}DATA ERROR" 
:STOP 

PRINT" (CLR} {2 DOWN} DONE" 
DATA 32,109,192,32,253,1 
74,32,158,173,32,130,183 
glee? a 64735432) 189) 25 


JG 26 
cK 36 


cs 40 
EX 50 


DP 60 DATA 169,2,162,8,168,0,3 
2,186 ,255,32,192,255,162 
72,32,198, 255,32, 228 
DATA 255,166,0,145,251,1 
65,144,208,6,32,125,192, 
76,36,192,165,251,133,25 
3 
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HG 80 DATA 165,252,133,254,32, 
169,192,32,228,255,201,6 
7,208,249,169,2,162,8,16 


o 
DATA 1,32,186,255,32,192 
1255,162,2,32,201,255,32 
1132,192,32,125,192,165, 


251 

XF 100 DATA 197,253,208,244,16 
5,252,197,254,208,238,3 
2,132,192,169,52,133,25 
1,169 

DATA 8,133,252,169,2,32 
1195,255,76, 204,255,230 
1251,208,2,236, 252, 96,1 
60 


AR 90 


GB 116 


KR 120 DATA 6,177,251,76,210,2 
55 

To copy a program, LOAD “COPY 
IT” ,8,1, then type NEW. Insert the disk 
containing the program to be copied into the 
drive. Type SYS 49152,"filename’’, sub- 
stituting the name of the file you want to 
copy for “filename”. 

When the red disk drive light goes off, 
remove the disk and put the disk onto which 
you want to copy the program into the 
drive. Press the C key (remember that C 
means Copy). When the READY prompt ap- 
pears, your copy is done. 


Commodore POKEs 
Could you print a list of POKEs for the 
64 like the ones you published for the 
128 in the March issue? These were the 
POKEs for disabling RUN/STOP-RE- 
STORE and the like. 

Stuart Hopcraft 


We've assembled the following useful 
POKEs from previously published lists. 


If you disable the keyboard in direct 
mode, you won't be able to enter the POKEs 
to get it back because, of course, the key- 
board is inoperative. RUN/STOP-RE- 
STORE still works, unless you've disabled 
it, too, and will allow you to regain a func- 
tional keyboard. Also, strange things hap- 
pen when you POKE22,35 to stop the 
printing of line numbers. For one thing, 
printing a string inside quotation marks 
(PRINT “ABC") won’t work, although 
string variables can still be printed. 

The POKE to remove line numbers 
gives you a simple sort of word processor. 
You can type a message with line numbers 
as if it were a BASIC program, enter the 
POKE, and then LIST to the printer. Your 
message will print out with no numbers. 


Reprogramming The Function Keys 
Is there a way to disable the Plus/4’s 
function keys (which are preset), so 
they could be used for various functions 
in other programs? 

Frank E, Armstrong 


The 128, Plus/4, and 16 all have a KEY 
command which does two things. Type KEY 
all by itself and you'll see the current list of 
function key definitions. It also allows you 
to redefine the strings printed by the func- 
tion keys, Entering KEY 1, “OPEN 4,4: 
CMD4: LIST” + CHR$ (13) would 
change f1 to print the commands for listing 
a program to the printer plus a carriage re- 
turn, the CHR$(13). Add a number 1-8 after 
KEY, followed by a comma and the charac- 
ters or CHRS codes you wish to be printed. 


64 VIC Plus/4, 16 128 
Disable LIST 775,191 775,223 «74,187 775,139 
Enable 775,167 775,199 774,110 775,81 
Disable SAVE 819,246 818,73 816,136 818,180 
Enable 819,245 818,133 816,164 «818,78 
Disable LOAD 816,157 816,103 814,239 816,0 
Enable 816,165 816,73 814,74 816,108 
Disable RUN/STOP 808,239 808,100 806,103 808,100 
Enable 808,237 808,112 806,101 808,110 
Disable RESTORE 792,193 792,7 = 792,125 
Enable 792,71 792,173 = 792,64 
Disable keyboard 6490 649,0 1343,0 2592,0 
Enable 649,10 649,10 1343,10 2592/10 
No keys repeat 650,64 650,64 1344,64 2594,64 
All keys repeat 650,128 650,128 :1344,128  2594,255 
Enable repeating keys (space, delete, and cursor keys) 

650,0 650,0 1344,0 2594,0 
Clear keyboard buffer (before INPUT) 

198,0 198,0 239,0 208,0 
Change character color, x is 0-7 for VIC, 0-15 for others 

646,0 646,x 1339,x 241 x 
Remove line numbers during LIST 

22,35 22,35 22,35 24,37 
Enable 22,25 22,25 22,25 24,27 
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To make the function keys act as they 
do on the VIC and 64, enter these lines: 
10 C=133 
20 FOR J = 1TO7 STEP 2 
30 KEY J, CHRS(C): KEY J+1, 

CHRS(C+4) 
40 C = C+1: NEXT J 


After running this program, the func- 
tion keys will be defined as the ASCII codes 
133-140. A program could test for f3, for ex- 
ample, with something like 411 GETKEY 
AS: IF AS = CHRS$(134) THEN 500. At 
that point in the program, if the user 
pressed f3, the program would go to line 
500. 


Spelling Practice 

Tuse “SpeedCheck” (December 1985), 
the spelling checker for SpeedScript, as 
an educational aid for my three elemen- 
tary school children. I encourage them 
to bring home a list of their spelling 
words, which I then enter into the 
SpeedCheck dictionary of words. Once 
this is done, I recite the words as my 
child types them in with SpeedScript. 
The spelling checker then highlights 
any misspelled words. 

This not only makes studying the 
spelling list more fun, it also helps the 
child learn the computer keyboard, 

Richard L, Eberhardy 


You've invented an interesting new appli- 
cation for “SpeedCheck”; it sounds as if it 
works well. 


Nested Loops 
In one of your programs, a common 
mistake was made. FOR and NEXT 
should be used in pairs, not FOR-FOR 
followed by NEXT-NEXT. A proposed 
solution for “Bug-Swatter” is to split 
that part of the program into two sepa- 
rate loops. 

G. Brandt 


That part of the program is written correct- 
ly; there's no error in the line you men- 
tioned, The situation you've described is a 
nested FOR-NEXT loop, where one loop 
is inside another. Type in the following pro- 
gram to see how nested loops operate. It 
works on all Commodore computers. 

10 FORJ =1TO5 

20 PRINT J, “OUTER LOOP” 

30 FOR K = 1TO3 

40 PRINT K;“INNER"; 

50 NEXT RINT 

60 NEXT J 


The loop that uses the variable K as an 
index, lines 30-50, counts from 1 to 3, But 
it’s completely inside the J-loop, which re- 
peats 5 times, so the K-loop counts to 3.a to- 
tal of 5 times, The ‘(OUTER LOOP” 
message prints 5 times, while the “INNER” 
message appears 15 times (5 X 3). 

This is the correct method for using 
two loops at the same time. The inner loop 
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is said to be nested in the outer loop. Note in 
the example above that line 10 starts the J- 
loop and line 60 ends it. The K-loop runs 
from line 30 to 50. The first loop to start 
should always be the last to finish, Another 
way of looking at it is that a nested loop 
should be completely inside the outer loop. 

Placing one loop inside another is a 
useful programming technique. It's used 
widely in alphabetizing and sort routines 
and comes in handy when you're working 
with arrays. 


The Paperwork Stacks Up 

Here is a program that doesn’t work on 
my 128: 

10 FOR A = 1TO10 

20 PRINT “HELLO”; 


30 GOSUB 200 

40 END 

200 PRINT “GOODBYE” 
210 NEXT A 

220 RETURN 


I've programmed for a few years 
with the Apple Ile, TI-99/4A, and now 
the 128, and I can’t say I've run across 
this problem before. Could you please 
explain why this program won't work? 

L. Darrell Olson 


You cannot split a FOR-NEXT loop, putting 
the FOR in the main program and the 
NEXT in a subroutine. Here's why: 


Imagine that you've received several 
letters in the mail and you place them, one 
atop another, in a neat pile. Each piece of 
mail is covered by another, except the one 
on the top. To get to the third one down, you 
must remove the two letters from the top. 

Computers have an area of memory 
called the stack, which operates a lot like 
this fictional pile of correspondence. You 
can-push numbers onto the stack and pull 
numbers off the top. But only the number on 
top of the stack is directly accessible. 

The Commodore 128 (as well as the 
VIC, 64, Plus/4, and 16) saves various 
information on the stack. In a simple FOR- 
NEXT loop, the FOR pushes information 
about the loop onto the stack. Then, when 
the 128 sees the NEXT instruction, it pulls 
that information off the stack and decides 
whether the loop should continue or end. If 
the loop isn't finished, the information re- 
mains on the stack. The most recently start- 
ed loop has its data on top of the stack, 

Incidentally, this is the technical rea- 
son for the nested-loop rule mentioned in 
the previous letter, If you start the first loop 
with the index variable J, the J information 
is pushed onto the stack. Then, when you 
start the K loop, the K information is pushed 
on top of the stack, The NEXT K must come 
before the NEXT J, because the loop infor- 
mation for K is higher on the stack. 

Subroutines also use the stack. When 
GOSUB 200 (line 30) executes, the 128 has 
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to remember where to come back to when 
the subroutine is done. The relevant infor- 
mation is pushed on the stack. When RE- 
TURN ends the subroutine, the computer 
pulls that data back and jumps back to the 
line after the GOSUB. 

In your program, the FOR pushes some 
information on the stack, then the GOSUB 
pushes more information (which is now the 
top of the stack), When the NEXT occurs 
within the subroutine, your 128 tries to lo- 
cate the information about the loop. But 
what it finds on the stack is the GOSUB, 
which isn’t the right information. As a re- 
sult, it stops and prints the NEXT WITH- 
OUT FOR error. 

This is not a quirk of Commodore com- 
puters, You'll find that the Apple and TI re- 
turn similar error messages (the message is 
worded differently, but the error has the 
same cause). 


Hidden Lines 

How do you make a line number disap- 

pear when someone tries to list a BASIC 

program? Also, how do you make an 

entire line flash and then erase itself? 
Mark Sanders 


List the line you want to flash and add a 
colon, REM, and a quotation mark: 


:REM” 


Press RETURN and then cursor back 
up to the end of the line. Press CTRL-9 
(RVS ON) and then type enough reverse 
T's to match the number of characters up 
to and including the quotation mark after 
the REM. When the line is listed to the 
screen, the reverse T’s act as delete char- 
acters. The line prints and is quickly 
deleted, 

This trick doesn't prevent users from 
listing to the printer, however, because 
it’s not possible for printers to delete or 
erase characters once they've been printed 
on paper. 


Golfing Stats 


For two years I've been using a BASIC 
program for the 64 to calculate handi- 
caps and keep win/loss records for my 
Retiree’s Golf League. My problem is 
that the league expands to 160 players 
each winter and the program uses a di- 
rectory entry for each man. I therefore 
can handle only 144 golfers on a single 
disk, with the records for the extras ona 
second disk. 

Last summer I purchased a Com- 
modore 128 with the expectation that 
when I bought a 1571 disk drive, it 
would use both sides of the disk and 
allow 288 directory entries. But, alas, 
the 1571 allows only 144 entries. So this 
past winter I had the same problem, 

It has occurred to me that maybe 
there could be a way to get 288 entries 
by reprogramming the 1571 to use only 


one side of the disk at a time. If you 
could help, I’d appreciate it. 
George Cowing 


You're right, the 1541 and 1571 both have 
a limit of 144 directory entries. The direc- 
tory track contains exactly 18 disk sectors 
and each can hold information about 8 
files, Hence the 144 entry maximum. 

You're also right about expanding the 
1571's directory to 288 entries. The 1571 
can treat double-sided disks as if they are 
two single-sided disks, 

First, insert a new double-sided disk 
into the drive and type two lines: 
OPENI5,8,15,U0>M0” 

CLOSE15 


This makes the 1571 act like a single- 
sided 1541. Think of MO as “mode zero” 
(M1 turns the drive back into a double- 
sided 1571, which is mode one). Be sure to 
type the 0's as zeros, not the letter O. 

Even though it's using only one side, 
the 1571 still has two read/write heads 
(head 0 and head 1). Turn on head 0 and 
format that side of the disk with the fol- 
lowing lines: 

OPEN 15,8,15,“U0>H0” 
PRINT#15,“NO:diskname,id” 
CLOSE 15 


Formatting erases everything on the 
disk, so be sure not to use a disk contain- 
ing anything you want to keep. Now type 
the three lines above again, but substitute 
“U0>H1" in the first line (this switches 
over to read/twrite head 1). Also, use a dif- 
ferent disk name and a different ID. The 
different ID is essential; if you use the 
same ID, you may encounter some serious 
problems, 

Once you've created the two-headed 
disk, you might want to mark the label so 
that you don't treat it as a normal double- 
sided disk. To use the disk in your pro- 
gram, you'd want to find a dividing point; 
for example, names A-M on one side and 
names N-Z on the other. Start the pro- 
gram with the “U0>MO” command to put 
it into mode 0 (1541 emulation), and then 
switch sides by sending "U0>HO" and 
“U0>H1" to channel 15. 

One more thing: When you send the 
command to switch sides, you should not 
have any files open. Close all files (except 
the disk command channel 15) before 
changing read/write heads. After switch- 
ing, it wouldn't hurt to initialize the disk 
by issuing a DCLEAR (128 mode) or a 
PRINT#15,“10" (64 mode). 


Safe Memory 

T have a couple of questions about pro- 
grams for the 64, The program “Arcade 
Baseball” (May) begins with POKE 
56,48: POKE 55,0. What do these 
POKEs do? I have seen them in other 
programs, so they would seem to have 
some widespread use, When I enter 
them in direct mode, however, nothing 
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seems to happen, 

Also, very often in machine lan- 
guage programs, I see the number 169 
followed by the number 0. Is there 
some special significance to these two 
numbers? 

Paul Dexter 


When you first turn on a 64, you'll find the 
numbers 1 and 8 in locations 43-44 and 
the numbers 0 and 160 in 55-56. These 
numbers refer to memory addresses; to 
convert them into decimal notation, mul- 
tiply the second number by 256, and add 
the first number (8 times 256 is 2048, then 
add 1 to get 2049), The pointer in address- 
es 43-44 contains the lowest address 
available for a BASIC program, which is 
2049 ($0801 in hexadecimal notation). Lo- 
cations 55-56 point to 40960 (hex $A000), 
one byte above the highest location avail- 
able for a BASIC program. These are 
sometimes called the bottom of BASIC 
and the top of BASIC, respectively. 

Locations 43-44 and 55-56 are im- 
portant because they tell the computer 
which part of memory is not currently 
used by the system. Because it's free mem- 
ory, you can put BASIC programs and 
variables in this space. After a program is 
loaded, another pointer at 45-46 is set. 
This pointer, sometimes called bottom of 
variables, indicates where the BASIC pro- 
gram ends and variables begin. All of the 
memory between the bottom of variables 
and the top of BASIC is open; when you 
run a program, variables are stored here. 

This poses a problem for sprites, hi- 
res screens, custom characters, machine 
language (ML) programs, and anything 
else that needs memory. If you put an ML 
program in the variable space, chances 
are good that variables will eventually 
overwrite the program. 

POKEing new values to 55-56 and 
issuing a CLR command moves the top of 
BASIC. The number in 56 should be lower 
than its usual value of 160. This reduces 
the memory available to BASIC programs 
and variables. It also sets up a section of 
memory that's safe from BASIC. “Arcade 
Baseball,” for example, needs some safe 
space to keep the sprite shapes and custom 
characters. 

Entering the POKEs in immediate 
mode might seem to have no effect. But if 
you type PRINT FRE(0) before and after 
the POKEs, you'll see a reduction in the 
amount of free memory, You haven't real- 
ly removed any memory from the com- 
puter; you've just told it that BASIC 
programs must fit within a smaller 
amount of memory. 

The 169 and 0 you've noticed in ma- 
chine language programs means LDA #0 
(LoaD the Accumulator with the number 
0). This is a common ML instruction, one 
that's usually followed by a store (STA) 
command. To read through a machine 
language program, you need a disas- 
sembler, which is a program that trans- 
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lates numbers like 169 and 0 into 
corresponding, easier-to-understand 
mnemonics such as LDA #0. 


Reading Alternate Disk Formats 
I have trouble booting WordStar for the 
Kaypro II on my 128 and 1571. On the 
Kaypro, all I have to do is type WS and 
the program is booted, On the 128, I’ve 
tried typing WS. After about ten sec- 
onds, the disk drive stops and KAYPRO 
IV appears in reversed characters on the 
bottom of the screen. The cursor 
doesn’t appear again until I press RE- 
TURN. Can you help? 

Paul Van Beber 


With certain disk formats, CP/M can't tell 
for sure which computer the disk came 
from. The KAYPRO IV prompt is essen- 
tially asking you if you're using a Kaypro 
IV disk. You're not, so press the right and 
left gray cursor keys (above INST/DEL on 
the top row) to select Kaypro II. Then 
press RETURN. If you plan to use several 
Kaypro II disks, you can lock in this for- 
mat with CONTROL-RETURN instead of 
RETURN. If you do this, you don't have to 
select Kaypro II every time you swap 
disks, 

For more about disk formats, type 
HELP while side 1 of the CP/M disk is in 
the drive. Select the topic C128_CP/M 
and subtopic MFM_FORMATS (type the 
back-arrow key above CONTROL to get 
the underline character). 


Disk Flaws 
Town a 64 and 1541 disk drive. When I 
type LOAD’’$”,8 on one of my disks, it 
prints SEARCHING and LOADING, but 
then the red light starts blinking. I’ve 
used this disk before and it has been 
formatted. What did I do wrong? 
Alfred Schmalfuhs 


Your letter mentions a single faulty disk. 
Assuming that you have other disks which 
work with your system, you can probably 
rule out the computer and disk drive as 
the cause of the problem. It's likely that 
you have a bad disk, Depending on what 
went wrong with it, you may or may not 
be able to salvage its files. 

Since you can't LOAD"’$" to get a di- 
rectory, there may be something wrong 
with the directory track. Run the follow- 
ing program after attempting to load the 
directory, while the 1541's light is still 
flashing: 

1 OPEN15,8,15 
2 INPUT#15, E,ES,T,S: PRINT E,E$,T,S 
3 CLOSE15: END 

You should see the error number, the 
error message, and the track and sector 
where the problem occurred. If the prob- 
lem is on track 18, something has hap- 
pened to the directory. Initializing or 


validating the disk may help. First, enter 
this line: 


OPEN15,8,15/"10": CLOSE15: LOAD“$0”,8 
If that doesn't work, try this: 
OPEN15,8,15,“V0" 


The process of validating a disk takes 
some time. When the drive busy light 
turns off, enter CLOSE15 and try loading 
the directory again. 

The directory track may be scram- 
bled, which means initializing and vali- 
dating won't have any effect. One possible 
cause of a scrambled directory is misusing 
@ program that writes directly to a disk 
and putting the wrong bytes in the wrong 
places. You may be able to fix it with a 
“track and sector editor” program, if you 
can figure out which bytes should be 
changed. You'd have to know how infor- 
mation is organized on Commodore disks 
and be able to recognize the bad bytes for 
this to work. 

You may also have a magnetism 
problem; disks can be adversely affected 
by magnetism from a motor, a television, 
or some other electrical equipment. This is 
not usually something to be concerned 
about; the magnetism put off by most 
equipment is fairly weak and frequently 
won't have any effect on disks. 

The disk itself may have a physical 
flaw, which could have been there when 
you bought it or could have been a result 
of improper handling (poking it with a 
ballpoint pen or touching the exposed disk 
surface, for example), If the disk is dam- 
aged, there’s usually nothing you can do 
to repair it. 

Finally, the disk may simply be stuck 
in its sleeve, unable to spin properly. You 
may have accidentally set a heavy book on 
top of it or squeezed too many disks into a 
disk box. The solution to this problem is to 
put two fingers in the middle of the disk 
and gently turn it. This should loosen it 
enough to allow it to spin. 

If any of these suggestions help and 
you're able to load the directory, it would 
be prudent to immediately back up the 
files on the disk. If it failed once, it may 
fail again. 


The 128 Memory Expander 

I have some questions about the 1700 
RAM Expansion Module I just pur- 
chased. I had hoped I would be able to 
address the 128K in banks 2 and 3 using 
the Kernal INDFET and INDSTA rou- 
tines ($FF74 and $FF77) as I do with 
bank 1. Apparently this is not the case; 
the 128 thinks bank 2 is bank 0 and 
bank 3 is bank 1. 

Is it possible to directly access the 
expansion memory using the techniques 
I use for bank 1? If not, then how do 
you “swap” a block of memory in ma- 
chine language? If Commodore never 
intended to allow direct access of the 
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RAM expansion, why was the MMU 
designed to handle bank 2 and 3 con- 
figurations? 

Richard W. Irwin 


It's not possible to directly PEEK and 
POKE the expansion memory; a form of 
loading and saving is necessary, Here are 
the procedures for using the memory from 
BASIC, CP/M, and machine language: 

BASIC commands to access the 1700 
or 1750 include FETCH, STASH, and 
SWAP. For example, BANK0:STASH 
1000,1024,1,2000 saves the current 40- 
column screen to locations 67536-68535 
in the expander. The BANK command at 
the beginning of the line sets the current 
bank to zero (where screen memory is 
found). The four numbers following 
STASH are the number of bytes to store, 
the starting address in the 128’s memory, 
the bank inside the memory expander, and 
the address inside the expander. To re- 
trieve the screen you saved, substitute 
FETCH for STASH. Note the two sets of 
addresses, one for memory in the 128 and 
one for memory in the expander. 

To specify a location in memory ex- 
pansion, you must include a bank and an 
address (banks in the 1700 and 1750 are 
independent of the banks inside the 128). 
The memory address can be a number 
from 0 to 65535. The 1700 (128K) expan- 
der has two banks, numbers 0-1. The 1750 
(512K) has eight, 0-7. When you STASH a 
large number of bytes to the end of a bank, 
the overflow will automatically wrap 
around to the beginning of the next bank. 

From CP/M mode you can treat the 
expander as if it were a very fast disk 
drive, called drive M:. After you PIP 
(copy) programs and files to drive M:, the 
time to load a file is almost instantaneous. 
Making disk backups is also easy. You PIP 
a disk to the expander, insert a formatted 
disk, and PIP everything to the backup 
disk, 

Accessing the memory expander in 
machine language is similar to the way 
you do it in BASIC, Several registers for 
the expander can be found at locations 
$DFO0-DFOA in bank 15. After switching 
to bank 15 by storing a zero into $FFOO, 
write to the following addresses: 


$DF02-03: Low-byte and high-byte of the 
starting address in the 128. 


$DF04-05: Memory address (0-65535) 
in the expander. 

$DFO06: Bank number (0-1 or 0-7, de- 
pending on the memory size 
of the expander). 

$DFO7-08: Number of bytes to send or 


receive, 


All numbers are stored low-byte first. 
When everything is set up, load the X reg- 
ister with the bank you want to access in 
the 128, and load Y with the command. 
Use $80 for STASH, $81 for FETCH, $82 
for SWAP, and $83 for verify (after verify- 
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ing, bit 5 of $DFOO will be cleared to zero 
to indicate a successful verify). When all 
this is done, JSR to the Kernal routine 
DMA_CALL at location $FF50. While the 
memory expansion is being used, the 8502 
will be put in a “wait” state, during which 
no ML instructions will be executed. Two 
warnings: First, stay away from the I/O 
area (SFD000-FDFFF) in the 128; at- 
tempting to store to bank O or bank 1 may 
result in bad values being written to the 
VIC chip or one of the CIA chips. Second, 
the 128 should be running at 1 megahertz 
(SLOW mode). FAST mode may affect the 
timing of the memory transfer, 

To answer your other question: The 
128's nonexistent banks 2 and 3 are men- 
tioned in some Commodore technical 
notes as provisions for future upgrades 
(the Commodore 256, perhaps?). There's 
no indication at this time that Commodore 
plans to develop or market such a ma-~ 
chine, but it’s a possibility. 


Array Variables 

I'm writing a program that chooses ran- 
dom numbers in a FOR-NEXT loop and 
prints them in various ways. But the 
numbers always turn out to be zero. 
Here's part of my program: 

10 FOR A = 1TO2 

20 B(A) = INT (RND() * 10 +1): NEXT 
30 PRINT B1; “+”; B2;: INPUT C 


Of course, my program is more ad- 
vanced than this, but this seems to be 
where the bug is located, Could you 
please tell me what's wrong and why? 

Uzair Hameed Ismail 


Your program is correct up to a point. The 
FOR-NEXT loop assigns random numbers 
between one and ten to array variables 
B(1) and B(2). But when you print the vari- 
ables in line 30, you're using the wrong 
variable names, It should look like this: 


30 PRINT B(1); “+”; B(2);: INPUT C 


Note the parentheses around the numbers. 
Variables B(1) and B(2) are part of an array 
(a list of variables), while variables B1 and 
B2 are ordinary scalar variables (indepen- 
dent variables not connected with a list). 
Because you used B(A) in line 20, you 
should use B(1) and B(2) in line 30. 

The reason you see all those zeros is 
that undefined numeric variables are as- 
signed the value 0 when you use them in a 
program. Your program hadn't done any- 
thing with B1 or B2 before line 30, so the 
computer assumes you want them to equal 
zero. 


The 128’s Keypad 
Ina program for the 128, how can you 
tell if a number was typed on the key- 
pad to the right or by the number keys 
above the normal keyboard? 

Kurt Hindenburg 


If you INPUT, GET, or GETKEY, you 
won't be able to tell the difference be- 
tween the numeric keys to the right and 
the numbers above the keyboard. When 
you're retrieving characters, a 5 is a 5, no 
matter where you type it. There is a way to 
check for the two different sets of keys, how- 
ever. Try running the following program: 


10 DO: PRINT PEEK(213);; LOOP 


Press the number keys, and you'll see 
that the keypad produces numbers that 
are different from the numbered keys in 
the top row of the regular keyboard. Loca- 
tion 213 holds the keyscan code for the 
key currently being pressed (or the value 
88 if no key is pressed). Keyscan codes are 
different from either screen or character 
codes, so the numbers printed on the 
screen might not seem to be in a logical or- 
der, but there's an internal logic based on 
the way the keyboard is wired. For more 
about keyscan codes and redefining the 
keyboard, see the “KeyDef” article else- 
where in this issue. 


Machine Language Patterns 


Is there any correlation between the 
6502/6510 opcode bit patterns and 
their addressing modes? I have written 
a disassembler in machine language 
that requires two large tables to decode 
the opcodes. If the opcodes hold certain 
addressing information, I could opti- 
mize the program dramatically. 

Rick Nash 


If you examine a sorted list of hexadecimal 
opcodes, you'll see some definite patterns 
(such a list can be found in the Program- 
mer’s Reference Guide for the 64). If the 
lower nybble is 1 ($01, 11, 21, up to $F1), 
the operation is either indirect-X or indi- 
rect-Y, Breaking it down further, all indi- 
rect-Y operations have a bit pattern of 
xxx00001, and all indirect-X operations 
are xxx10001 (where xxx could be any pat- 
tern of on or off bits). 

Opcodes with a lower nybble of $8 
are all one-byte operations (implied ad- 
dressing mode). So xxxx1000 includes 
PHP, PLP, PHA, CLC, SEC, CLI, SEI, and 
other one-byte instructions. All of the load 
opcodes, including LDA, LDX, and LDY 
have a pattern of 101xxxxx, a high nybble 
of either $A or $B. Many other correla- 
tions can be discovered if you study the 
list. 

Knowing the patterns may not speed 
up your disassembler or reduce the 
amount of memory it needs, however. You 
may find that using a lookup table is faster 
and more efficient. If it’s any comfort, 
popular monitor programs like Supermon, 
VICMON, and the Commodore 128's 
built-in monitor all use tables rather than 
mathematical algorithms to disassemble 
opcodes. @ 
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Welcome! ‘An absolute must for multiple back-ups!ll ‘Add $3.00 for 
All routines are highly reliable and include full verify option. C.OD's 


BASEMENT BOYS SOFTWARE (503) 256-5506 


P.O. Box 30901 Portland, OR 97230-0901 


Have your C-128* look 
assmart aS 
it works... 


with the Command Center, a space 
saving cabinet specially designed for the 
C-128 Personal Computer System. Just 
install your keyboard and disk drives, set 
your CRT on top, and you've got 
Commodore value with the look of a much 
more expensive system. 
It will untangle your wires and unclutter 
your desk, And look at all it includes: 
@ Built-in AC Power Strip with surge 
protection and line noise filtering. 
@ Built-in Drive/CPU Cooling Fan. 
@ Phone/Modem 
telecommunications switch. 
@ Master A.C. Switch with power .cizg ibsred Tracannark of Commodore Bosineas Mach 


indicator light. ts 
Free 30-day trial offer and one year KETEK. PO. Box 203, Oakdale, IA 52319 
YES! Rush ma.aCommandCenterto Namo 


warranty. Order your Command Center 
today. Write: KETEK, P.O. Box 203, complete my C-128 system. | may 
enjoy i for up to 30 days and return it 


Oakdale, IA 52319. 
for a full refund. Enclosed is my check 
= ‘or money order for $153.45 ($149.95 


Address = 


For faster service, call 


plus $3.50 for shpping andhangiing), ity — — Stato —zip = 
1-800-626-4582 toll-free. 


DEALER INQUIRIES INVITED 


THE 64C 
NEW LOOK 


POR PAN = 
OLD FRIEND 


Selby Bateman, Features Editor 


The ever-popular Commodore 64 is undergoing the first major 
change in its four-and-a-half-year history: encased in a cream- 
colored 128-style shell, and sold with a new disk-based icon- 
oriented operating system featuring a built-in word processor 
and paint program. Commodore is also placing a major enpha- 
sis on telecommunications for the 64C through the Quantum- 
Link online service. For several million 64 ane 128 owners, the 
good news is that Commodore plans to continue supporting the 


64 for quite some time. 


f you can't beat them, join them. 

That's apparently Commodore’s 
philosophy as the company rolls out 
the new Commodore 64C computer. 

At least twice Commodore stopped pro- 
duction of the 64 in late 1985, only to be 
forced back to the assembly line by high 
numbers of orders for the machine. And a 
Commodore official says that the 64 was 
still backordered during the first quarter of 
1986. So, rather than try to fight success, 
Commodore hopes the repackaged and re- 
furbished 64 will continue its reign as the 
king of low-cost computers for the rest of 
1986, into 1987, and—who knows? 
Announced at the Consumer Elec- 
tronics Show (CES) in Chicago June 1-4, 
the Commodore 64C represents a major 
new direction for Commodore, which had 
been emphasizing the higher priced 16-bit 
Amiga computer and the popular 128 in 
place of the 64. But now, like the U.S. Statue 
of Liberty, the 64 is getting a major facelift 
and a new lease on life. Commodore says 


that the 64C should begin to be available 
about the time you read this. 

For producers of 64 software, Com- 
modore’s altered marketing strategy 
means two important things. First, that the 
present installed base of more than two- 
and-a-half million 64s will continue to 
grow rather than be orphaned by Commo- 
dore, giving those companies further rea- 
son to keep producing 64 software. And 
second, the new GEOS (Graphic Environ- 
ment Operating System) software to be 
bundled with the 64C, and sold separately 
to current 64 owners, will provide an 
entirely new software universe for the 
computer. 

Similar to the Commodore 128 in its 
low-slung architecture and cream color, 
the new 64C is the same 64 internally. Its 
keyboard, side and rear ports, and switch- 
es are also identical to the 64’s. The ROM- 
based operating system hasn’t been 
changed either. So, all 64 software will be 
100-percent compatible. 
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Atari 

saost 1195 
ie 38 
sont $3 
aso $03 
wes 199 

Commodore 
Cres 799 
Cernig 3% 
to02 ‘B88 
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Panasonic 
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toe $03 
1083 33 

Star Micronics 
saisoro am 
888013 393 
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Okidata 
sone 2 
a3 $8 
i 239 
INNOVATIVE CONCEPTS 
Flip-N-File 10 
IPN Ee 28 Lock 198 
i 

Flip. 1 
Flip- 

EPYX-64 
Fastload 


24,7: 
‘Summer Games.......26,7: 


SUNCOM 
SLICK STICK 7.95 
TACS 11:98 


WICO Joysticks 
18.9714 Bat Handle.....16.78 
80-3008 Si5sr S-Way...19199. 


COMMODORE 
CAI 


39 
30 ISR FIAM 188 
744750 812 K RAM 269 


Bortoct Writer 45 
Perfect Calc 45 
Perfect Filer 45 


UNISON WORLD 
Print Master (Amiga) ..22.78 
Print Master (C-1 

pant Mase (Seay bore 
Art Gallery 16.75 


ACTIVISION (C-t 64/128) 


Altor Ego 
Hackler. “3 a R 
Little People 20.75 
Gamemaker. 24.75 
Borrowed Time 18.75 
Space Shuttle 18.73 
Music Studio’ 24,75 
Mindshadow 18.75 
Roadrace 18.75, 
East Tracks. 22.75 
Count Down 18.75 


Consultant 38: $8 
Paper cli 
wi Spell Pak 48.95 
MICROLEAGUE 
Baseball 
Gl iI 34 $3 
Team Disk 14.95 
SYNAPSE 
Sy neal . 29.95 
Loder Rescue. 19.95 
ae ae 
rimstone. 95 
Mindwheel. 24,95 


BRODERBUND 
The Print Shop 24.75 
Graphics Library 


Brintshop Comparion 24 

jank 

Bank St Fler 

Bank St. Mailer 

Championship 
Loderunner 


SUBLOGIC 
Nightmission Pinball, . 18.95 
Flight Simulator 3175 
det Simulator 25.95 
Football 25.95 
Scenery Disk... EA’ 14.95 
Set 1-6 69.95 


ACTIVISION (Amiga) 
Hackler, 
Mind Shadow. Bete 


Music Studio ....0...29.75 
Borrowed Time.......-26-75 


VIP 


(Amiga) 
VIP Professional .. 119.95 


c. Peery 
-64—Amiga 
Grog SE) 
Leader Ecard Amiga aay B 
Tougament| 

BR 


CARDCO 
Numeric Keypad. 34: 
CBS 5-slot Board | 49.95 
GB/2 2-slot Board 21.95 
$'More Basic Rom | 39:95 
Write Now 29.95 
Freeze Frame 29:95 


ETEC 


Font Master Il 64... 28.95 


Buy Lyco and Engey 


% THE LOWEST PRICES x TOLL FREE ORDER LINE x 


ssl 
Colonial Conquest... .. 22.75 
Wings of War 2.75 
Computer Ambush. 32.75 
Field ot Fire 2275 
Fighter Command : 34:7 
Kamp'guope 3475 
Mech Brigade 3475 
Market Garden 2775 
Six Gun Shootout 22.75 


Computer Baseball 22.75 
Computer Quarterback 22:75 
Impenum Galactum. 22.78 


Pha 20.75 
Cartels 8 Cuttroats, 22.75 
50 Missior 22:75 
Questen 22:75 
Gemstone Warrior... 22.75 
Battellion Commander 22:75 
Panzer Grenider 2275 
Noguay 8s 2275 
Bat 3 

attiearoup 

NAM 2275 
Phantasie il 22°75 
Wizards Crown 2275 
Rings of Zelphin 22:75 

CONTINENTAL 


Home Accountant ....99.95 
Book of Adventure Games 
1H 14.95 


DISK DRIVE 
CLEANING KIT 
$8.95 


With Software 
$17.95 


* Free shipping on prepaid cash orders in U.S. * All Merchandise Factory Fresh 
x Fast Service from one of the oldest and most established Computer Supplier * 
24 hrs. shipping on in-stock product * Access to our Multi Million $ inventory * 
No deposit on UPS C.O.D. orders * Orders outside PA Save state sales tax * Air 
freight service available * Full Manufacturer’s Warranty apply! * Full accessory line 
in stock * Purchase orders Accepted from educational institutions! * We check for 
stolen credit cards! * We ship to our servicemen overseas! * You'll love our 
Courteous Sales Staff! * We satisfy more customers monthly than most of our 
competitors combined * 


EPSON LEGEND C. ITOH 
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315) 399 SP-1000 IBM. 197 Okimate 10.... 79 MaE38 377 ‘$B-15 NE CALL 
1582 439 8P-1000 AS RS-239 | 197 ioe arat ‘214 MBP-20 355 86-15 367 
1595 NEW ‘SP-1000 AP Apple lic. . 197 192... 348 MSP-25 528 $D-10 sie 
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SILVER REED | BP-5200 ribbon, 42.50 SR15 $78 
24 BP-5420 999 $B-10 589 
Blgetd Ba Powertype..........297 
EXEIZO BY COLOR RIBBONS AVAILABLE! 
ZENITH THOMSON 
AMDEK ZyM 1220 95 COMMODORE cM36512V1 269 SAKATA 
900 Green 115 2VM 1230 95 1902 Color CALL M3662... ITS oy 
5 1902 Color $G 1000 12" Green i 
Ronee. 13 aos are 1802 Color sent CALL 84 1000 13" Amber 
8G 1500 1 
Bs é3} PRINCETON GRAPHICS TEKNIKA e009 Grp TL i 
730, Gall MAX-12 Amber 175 AMDEK Mu-10 175 SiSt Tit stana 
Pe Gall HX42 RGB 458 300 Green 118 M22 250 
SR:12 RGB 575 300 Amber 128 MS-305 RGB NEW. 
VERBATIM MAXELL 
COMMODORE 5%" SSDD_ 9.99 5%" SSDD ....... 11.99 
Jot omnrnnsenonn ATL 5%" DSDD 13.99 5%" BSDD 15.99 
SUNKYOUNG 
INDUS COMTEL 6.99 SKC 5M 11.99 
GT Commodore.....185 Enhancer 2000 (C-64),, 155 8:99 SKC 514 13.99 
ETEC CARDCO 
sea ey guia), 795 HAYES COMMODORE. ys ROBOTICS 
Super Graphix JR 64 88 Sree 3 Smnartmodem $200. ay? Password 1200) ..238 
ORANGE MICRO eae Smartmodem 12008 . 347 SUPRA Password 00M rey 
Smartmodem 2400, 598 Pi ro S00F 139 
Grappler COC-64) vii 72) Connection (C64)... 55 1064 Modem (C-84) 49.95 'A8swor 


=) TO ORDER 


CALL TOLL FREE 1-800-233-8760 
In PA 717-494-1030 
Customer Service 717-494-1670 


or send order to 
Lyco Computer 
P.O. Box 5088 
Jersey Shore, PA 
17740 


RISK FREE POLICY 

trrstock items shipped within 24 hours of order. No deposit on G.0.D. orders. 
Free shipping on prepaid cash orders within the continental US. Volume 
discounts avallablo, PA residents add sales tax. APO, FPO, andinternational 
orders add $6.00 plus 3% for priority mall service. Advertised prices show 
4% discount for cash, add 4% for MasterCard and Visa. Personal checks 
require 4 weeks’ clearance before shipping. Ask about UPS Bive and Red 
lade! shipping Ali merchandise carriedunder manufacturer's warranty. Free 
catalog with order. All tems subject to change without notice. 


However, the real story of the 
64C is not the new look, but the 
software and hardware additions: 
GEOS, the new user interface and 
operating system software; the tie- 
in with the QuantumLink online 
service; and the new peripherals 
that will support the 64, including 
the Commodore 1581 3%-inch 
disk drive (around $225), the stan- 
dard 1541 disk drive in a new 128- 
colored case, and—later on—128K 
and 512K memory expanders for 
the 64 (already available for 128). 
Happily, all of the new software 
and hardware can be used by cur- 
rent 64 owners as well. 


urchasers of the Commodore 

64C will pay around $160 to 
$180 for the computer itself. The 
machine will come with a disk con- 
taining the GEOS user interface, op- 
erating system, and applications on 
one side and the QuantumLink 
Commodore-specific telecommuni- 
cations program on the other. Pre- 
sent 64 and 128 owners can buy the 
GEOS/QuantumLink disk from 
Berkeley Softworks or retail dealers 
for $59.95. QuantumLink, a Com- 
modore-specific telecommunica- 
tions network, charges a flat $9.95 
monthly fee rather than the more 
expensive per-minute online con- 
nect fees used by other services, 
The 64C will also be bundled with 
an educational program on disk, 
Odell Lake, an environmental simu- 
lation of a lake that teaches children 
from five to eight years of age how 
such a habitat functions among its 
plant and animal inhabitants. 

For those unfamiliar with 
GEOS, the system looks and feels 
very much like the user interface on 
the Macintosh, Atari ST, and Com- 
modore Amiga computers. Includ- 
ed are icons representing different 
files and functions, pull-down 
menus, screen windows, a variety 
of type fonts, and bitmapped 
graphics. The GEOS operating sys- 
tem speeds up the 1541 disk drive 
in all its operations, generally from 
five to seven times normal speed. 
And GEOS allows much easier 
movement between applications, 

GEOS is composed of four 
main programs, geoWrite, a word 
processor; geoPaint, a paint pro- 
gram; GEOS, the operating system; 
and GEOS deskTop, the user inter- 
face from which you control all of 
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The GEOS deskTop, 
displaying a variety 
of file icons on the 
system’s Notepad. 
The menu bar is at 
the top of the screen. 


the other features, In addition to the 
four main programs, GEOS contains 
a variety of smaller accessory pro- 
grams, such as the Preference Man- 
ager GEOS control panel, a calcu- 
lator, an alarm clock, a variety of 
printer drivers, a half-dozen type 
fonts for printing, and Text Album 
and Photo Album—accessories that 
let you paste text from geoWrite into 
your geoPaint artwork—and vice 
versa. The accessories are available 
from the GEOS deskTop as well as 
from within application programs, 
such as a word processor. Move- 
ment of the screen cursor and selec- 
tion of menu items is carried out by 
use of the joystick or the new Com- 
modore 64 two-button mouse. 
geoWrite is very much like the 
what-you-see-is-what-you-get 


The QuantumLink 
opening screen offers 
a menu system of 
choices for Commo- 
dore computer users. 


MacWrite word processor on Ap- 
ple’s Macintosh computer. As with 
all of GEOS' functions, a menu sys- 
tem is used. Text can be entered, 
edited, moved, copied, and cut. A 
variety of fonts are also available, 
as are formats such as italics, bold- 
face, underlining, and outlining. In 
standard text mode, GEOS displays 
80 columns rather than the 64’s 
normal 40. And, geoWrite’s high- 
resolution text display allows the si- 
multaneous use of multiple fonts, 
type sizes, and type styles. 
Similarly, geoPaint resembles 
the Macintosh’s MacPaint software, 
with its menu system and variety of 
painting tools. The original geo- 
Paint, version 1.0, was two-color 
(black-and-white), but version 1.2 
supports the 64’s full complement 


Quantum 


el NK 


128 


Make your BASIC programs rax LIGHTNING SPEED! 


The complete compiler 
and development pack- 
age. Speed up your pro- 
grams 5x to 35x, Many 
options: flexible memory 
management; choice of 
compiling to machine 
code, compact p-code or 
both. "128 version: 40 or 


80 column monitor output 
and FAST-mode opera- 
tion. "128 Compiler's ex- 
tensive 80-page_pro- 
grammer's guide covers 
compiler directives and 
: : options, two levels of 
optimization, memory usage, /O handling, 80 column hi-res graphics, faster, 
higher precision math functions, speed and space saving tips, more. A great 
package that no software library should be without, 128 Compller $59.95 

64 Compiler $39.95 


| For school or software 
+ | development. Learn © on 

«| your Commodore with our in- 
depth tutorial. Compile C pro- 
grams into fast machine 
language, C-128 version has 
added features: Unix™-like 
‘operating system; 60K RAM 
disk for {ast editing and 
compiling Linker combines 
up to 10 modules; Combine 
MIL and C using CALL; 51K 
= i available for object code; 

Fast loading (8 sec. 1571, 18 sec. 1541); Two standard 1/0 librarys plus 
two additional libraries—math functions (sin, cos, sqrt, etc.) & 20+ graphic 
commands (line, fill, dot, etc.) C-128 $59.95 
C-64 $59.95 


———————— 


Easily create professional 
high quality charts and 
graphs without programming, 
You can immediately change 
the scaling, labeling, axis, 
bar filling, etc. to suit your 
needs. Accepts data from 
CalcResult and MultiPlan. 
C-128 version has 3X the 
* || resolution of the '64 version. 
Ki Outputs to most printers. 

C-128 $39.95 
C64 $39.95 


PowerPlan 
One of the most powerful spreadsheets with integrated 
graphics. Includes menu or keyword selections, online help 
screens, field protection, windowing, trig functions and more, 
PowerGraph, the graphics package, is included to create 


integrated graphs and charts, C-64 $39.95 
Technical Analysis System for the C-64 $59.95 
Ada Compiler for the C-64 $39.95 
VideoBasic Language for the C-64 $39.95 


and PROVEN 
° PERFORMANCE 


Remarkably easy-to-use 
interactive drawing pack- 
age for accurate graphic 
designs. Now dimension- 
ing features to create 
exact scaled output to all 
major dot-matrix printers. 


Enhanced version allows 


you to input via keyboard 
or high quality lightpen. 
Two graphic screens for 
COPYing from one to the 
|| other. DRAW, LINE, BOX, 
CIRCLE, ARC, ELLIPSE 

D available. FILL objects 
with preselected —PAT- 

TERNS; add TEXT; SAVE and RECALL designs to/from disk. Define your own 
library of symbols/objects with the easy-to-use OBJECT MANAGEMENT 
SYSTEM-store up to 104 separate objects, C-128 $59.95 
C-64 $39.95 


Not just a compiler, but a 
complete system for develop- 
ing applications in Pascal 
‘ . [with graphics and sound 

 |features. Extensive editor 
with search, replace, auto, 
renumber, etc. Standard J & 
* |W compiler that generates 


3 = ‘i fast machine code. If you 


Me want to learn Pascal or to 


EEE SS, develop software using the 
Se = : best tools available-SUPER 


ca Pascal is your first choice. 
C-128 $59.95 
C-64 $59.95 


OTHER TITLES AVAILABLE: 


COBOL Compiler 
Now you can learn COBOL, thi 
programing language, an 
is easy to learn because 
package comes complet 
and Symbolic Debugger. 


Compiler and Software 
Developmert System 


tead. COBOL Compiler 
‘ditor, Compiler, Interpreter 
C-64 $39.95 


Personal Portfolio Manager 
Complete portfolio management system for the individual or 
professional investor. Easily manage your portfolios, obtain 
up-to-the-minute quotes and news, and perform selected 
analysis. Enter quotes manually or automatically through 
Warner Computer Systems. C-64 $39.95 


Xper 
XPER is the first "expert system for the C-128 and C-64. While 
ordinary data base systems are good for reproducing facts, 
XPER can derive knowledge from a mountain of facts and help 
you make expert decisions. Large capacity. Complete with 
editing and reporting. C-64 $59.95 


+128 and 6-64 are tademarks of Commodere Businees Machines Ine. 
Unix isa tademark ol Bal Laborateries 


Abacus!) Software 


P.O. Box 7219 Dept. G8 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-5510 


Call now for the name of your nearest dealer. Or to order directly by credit card, MC, AMEX of VISA call (616) 
241-5510. Other software and books are available—Call and ask for your free catalog. Add $4.00 for shipping 
per order. Foreign orders add $12.00 per item. Dealer inquires welcome—1400+ nationwide. 


of 16 colors. (For a detailed over- 
view of GEOS, see the June Ga- 
ZETTE, “GEOS: The Quiet Revolu- 
tion.”) 

Berkeley Softworks began 
marketing GEOS by mail order prior 
to Commodore’s announcement 
that it would bundle the software 
with the 64C computer. Any 64 
owner who purchased the first ver- 
sion will automatically get the latest 
upgrades of the program free, in- 
cluding a disk with additional type 
fonts that work with geoWrite. A 
considerable number of conve- 
niences have been added in the lat- 
est version (Version 1.2). For 
example, there’s now a command 
to easily UPDATE a file as you 
work, And GEOS also automatically 
saves information to disk anytime 
you move up or down the screen or 
close your document. A RECOVER 
menu command returns you to the 
last version of your file that you 
saved. And RENAME now lets you 
rename a file with ease. Another 
menu selection, CLEAR, has been 
added to the Copy Box commands. 
Users can now make whatever is in 
the Copy Box disappear—an effi- 
cient way to erase a large area. 

Owners of the Commodore 
128 and 1571 disk drive can boot 
GEOS and use all of the functions in 
64 mode. A 128-specific GEOS sys- 
tem is planned for early fall, possi- 
bly in September. Later this summer, 
Berkeley Softworks will have a 
complete programmer's reference 
manual available—all of the tech- 
nical documentation for software 
developers who want to create pro- 
grams within the new operating 


geoPaint now 
supports color graph- 
ics. Note the color 
selection bar along 
the bottom right, dis- 
playing 16 available 
colors, 


system. In fact, that’s one of the 
long-range goals for Berkeley and 
for Commodore—to create a totally 
new operating environment for 
hundreds of future commercial 
programs. 


he QuantumLink telecommuni- 

cations software that comes on 
the back of the GEOS disk is for use 
by 64 and 128 owners only. Quan- 
tumLink, which began operations 
with marketing support from Com- 
modore in late 1985, presents its 
users with color graphics, a menu 
selection system of options, down- 
loadable software, and features 
similar to other online services. In 
addition, QuantumLink offers 64 
and 128 owners the chance to pre- 
view new commercial software 
packages online before deciding 


The Commodore 64C sports a new 128-style look, is completely compatible with 
earlier 64s, and offers a new RAM-based operating system and other options. 
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whether to buy the programs. 

Interactive online games, using 
color graphics and sound, are also a 
part of the QuantumLink service. A 
major announcement concerning a 
new interactive online entertain- 
ment program on QuantumLink is 
expected shortly after the Consum- 
er Electronics Show, The GAZETTE 
will have more information on that, 
and on additional QuantumLink 
features, in the September issue. 

As mentioned earlier, Quan- 
tumLink requires a flat $9.95 fee for 
access through local telephone 
numbers that have been set up in 
more than 500 cities. This provides 
unlimited access to most of the sys- 
tem’s services without additional 
fees, Some QuantumLink services 
do require an additional surcharge, 
but those areas are clearly labeled. 

For Commodore 64 and 128 
owners, the new 64C answers im- 
portant questions about the future of 
Commodore’s commitment to the 
64 market. Even with the company’s 
obvious long-range plans for the 
Amiga and the 128, Commodore is 
unable to ignore the enduring popu- 
larity of the venerable 64. 


nLink g Dit 
‘Quantum Computer Services, Inc. 
8620 Westwood Center Dr. ti 
Vienna, VA 22180 
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Abacus EHH Software 


Abacus| Software 


Abacus Biff Software 


Abacus| 


Software 


Dotailnd guide prosente tho 126s 
Speraing system, oxolins graphic 
chips, Memo ent Unk, 80 
cobrin grapbles esa, comm 

ROM istngs. co0pp $1995 


eaeeaaes 
BASIC couce 


1ae 


Got all the Inside Information on 
BASIC 7.0. This oxhaustive hand- 
book is complote with commented 
BASIC 7.0 ROM Tatngs, Coming 
Summer 19: 


Fillad with info for everyone. Covers 
80 column hi-tos graphics, win- 
dowing, memory layout, Kernal 
routines, ‘sprites, software pro- 
toction, autostarting, 300pp $19.95 


Commented listings, 
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Abacus EER Software 


Abacus EHH Software 


Abacus EHH Software 


Introduction to programing: problem 
‘analysis; thorough description of all 
BASIC commands with hundreds of 
‘exampes; monitor commands; ulil- 
thos; much moro, $16.95 


ANATOMY OF C-64 Insider's guide to the 


Pragonta dozona of programming 
quick-hitters, Ea 

techniques on the 
slacks, zoro-pago, p 

BASIC intorprotor and more, $16.95 


TRICKS & TIPS FOR C-64 Collection of 


Essonlial guide for everyone inter. 
‘ested in CP/M on tho 128, Simplo 
‘explanation of the operating systom, 
momory usage, CP/M ullity pro: 
‘grams, submit fies & more. $19.95, 


SCIENCE/ENGINEERING ON C-64 In 


Insiders’ guide for novice & ad- 
vanced usors, Covers sequential & 
tolative filos, & direct accoss com- 
mands. Describes DOS routines, 


ANATOMY 


"G4 intemals, Graphics, sound, VO, kernal, 
memory maps, more. Complete commented 


ROM Estings. 300pp $19.95 
ANATOMY OF QDRIVE Bost 
handbook on ff all, Many 
‘examples and ‘commented 
1541 ROM tangs S00pp $19.95 


MACHINE LANGUAGE C-64 Learn 
6510 code write last programs, Many sam- 


GRAPHICS BOOK C-64 - best relerence 
covers basic and advanced. graphics. 
Sprites, animation, Hires, Muticolor, 
lightpen, 3D-graphics, IRO, CAD, pro- 
Joctions, curves, more, | 3860p $19.95 


Abacus 


1asy-10-use techniques: advanced graphics, 
improved data input, enhanced BASIC, 
CPIM, more. ‘25pp $19.95 
1541 REPAIR & MAINTENANCE 
cribes the disk drive hard 
‘schematics and techniqu 
fokeop 1541 running. 200pp $19.95 


ADVANCED MACHINE LANGUAGE 
Not covered elsewhere: - video controller, 
interrupts, timers, clocks, VO, real tim 
extended BASIC, more, | -210pp $14.95 


PRINTER BOOK C-64/VIC-20 Under- 
stand Commodore, Epson-compatb print 
ers and 1520 plo 
phics dump; 3D-plot; commented MPS801 
FROM listings, more, ‘330pp $19.95 


fesseseaees 
Hii HEE 
P.O. Box 7219 Dept.G8 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-5510 


Optional diskettes available for all book titles - $14.95 each. Other books & software also available. Call for the name of your 
nearest dealer. Or order directly from ABACUS using your MC, Visa or Amex card. Add $4.00 per order for shipping, Foreign 
orders add $10.00 per book. Call now or write for your free catalog. Dealer inquires welcome--over 1400 dealers nationwide. 


epth intro to computers in science. Toples: 
chemistry, physics, biology, astronomy, 
slectronics, others. ‘350pp $19.95, 
CASSETTE BOOK C.64/VIC-20 
Comprehensive guide; many sample 
programs. High speed operating system 
fast fie loading and saving. 225pp $14.95 
IDEAS FOR USE ON C.64 Thomos: 
Auto exponses, calculator, recipe file, stock 
lists, diet planner, window advertising, 
others. Includes listings. 200pp $12.95, 
COMPILER BOOK C-64/C-128 All you 
Need to know about compilers: how they 
work; designing and writing your own; 
Generating machine code. With working 
example compiler, 300pp $19.95 


Loam fundamentals of CAD while 
<doveloping your own system, Design 
‘objects on your scraon to dump to a 
printor, Inchudes listings for "64 wih 


$19.95 Simon's Basi. 200pp $19.95 


ADVENTURE 
GAMEWRITERS, 
HANDBOOK FOR 


TORTHE 
COMMODORE | ANATOMY 
(“orm 


Adventure Gamewriter's Handbook 
Step-by-step guide to designing and writing 
your own adventure games. With automated 
Adventure game generator. 200pp $14.95 
PEEKS & POKES FOR THE C-64 
Includes in-depth explanations of PEEK, 
POKE, USA, and other BASIC commands 
Learn the “hiside® tricks to got the most ot 
of your 64, 200pp $14.95 
Optional Diskettes for books 
For your convenience, the programs 
contained in each of our books are avail- 
able on diskette to save you time 
them from your 
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AN INTRODUCTION TO 


ASSEMBLERS 
FOR THE 


COMMODORE 64 
AND 


128 


Todd Heimarck, Assistant Editor 


If you plan to get into machine language, you need an assem- 
bler. Here’s an overview of features to consider before purchas- 


ing one—and an up-to-date list of commercially available 


assemblers, 


A machine language assembler 
turns source code written by a pro- 
grammer into object code, the pro- 
gram which can be executed by the 
computer. (Source code is some- 
times referred to as assembly lan- 
guage because it’s a language for 
communicating with assemblers.) 


M any assemblers have at least 


two parts: the assembler it- 
self and an editor program. A stan- 
dard editor allows you to enter 
source code, insert lines, delete 
lines, print out the program, and 
save a file to disk. It may be a sepa- 
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rate program, or it may be built into 
the assembler. 

An editor program is similar to 
a word processor and, in some 
cases, you can substitute your fa- 
vorite word processor if its files— 
usually sequential ASCII—are 
compatible with the files used by 
the assembler. The advantage of 
this is that you don’t have to learna 
new set of commands for using the 
assembler’s text editor. 

There's a disadvantage as well: 
If the editor and assembler are sep- 
arate programs, writing an ML pro- 
gram takes several steps: 1. load the 
editor, 2. type in the program, 3. 
save it to disk, 4. load the assem- 


“If you know BASIC and want to learn 
machine language, this is the place to start 
.... Building on your experience as a 
BASIC programmer, Mansfield very gently 
takes you through the fundamentals of 


machine language.” 


—Whole Earth Software Catalog 


COMPUTE! Books’ 


Best-selling Machine Language Books 


“Understandable’—The New York Times 


“Presents the machine language novice with a very 
good tutorial in simple, understandable terms." 
—Antic 


“T highly recommend Machine Language for Begin- 
ners as your first introduction to the world of 
machine language.” 


—Commodore Power/Play 


Machine Language 
for Beginners 

Richard Mansfield 

Most commercial software is 
written in machine language be- 
cause it's far faster and more 
versatile than BASIC. Machine 
Language for Beginners is a 
Step-by-step introduction. |n- 
cludes a simple assembler, a 
disassembler, and utilities, to 
help beginners write programs 
more quickly and easily, 
$14.95 

ISBN 0-942386-11-6 


Machine Language for Beginners and The Second Book of Machine Language: 
everything you need to learn machine language programming 
‘on your Apple, Atari, and Commodore personal computers. 


The LADS Disk 

LADS, the assembler used in The Second Book of 
Machine Language, is available on disk for only $12.95. 
This is a great accompaniment to the book, saving you 
hours of typing time by providing the complete source 
and object programs for all versions of the assembler, 
and more. And LADS disks are specific to your Apple, 
Atari, or Commodore computers. 


The Second Book of 


Machine Language 
Richard Mansfield 

The follow-up to the best-selling 
Machine Language for Begin- 
ners, this book leads the pro- 
grammer deeper into the most 
powerful and efficient program- 
ming techniques available for 
personal computers, Fully tu- 
torial, with easy step-by-step 
explanations, the book shows. 
how to construct significant, 
effective machine language 
programs. Included is a high- 
speed, professional-quality, a- 
bel-based assembler. Everything 
that’s needed for optimized 
programming on the Com- 
modore 64, Apple, Atari, VIC-20, 
and PET/CBM computers. 
$14.95 

ISBN 0-942386-53-1 


The Second Book of Machine Language, $14.95 
Machine Language for Beginners, $14.95 

LADS Disk (Apple) $12.95 

—_———_ LADS Disk (Atari) $12.95 

LADS Disk (Commodore), $12.95 


Payment Enclosed (check or money order) 


OCharge OMasterCard O Visa O American Express 


Acct, No. 


To Order: Call Toll Free 800-346-6767 (in NY 212-887-8525) or mail this coupon with 
your payment to COMPUTE! Books, P.O. Box 5038, F.D.R. Station, New York, NY 10150. 


Name 


Address 
City 


State Zip 


I 
I 
I 
I 
I 
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I 
I 
I 
L 


—— 1 Book for $14.95 | 
——  2Books for $25.00 
LADS Disk for $12.95 | 
NC residents add — I 
4.5% sales tox 
Shipping and handling $ I 
($2.00 per book I 
$1.00 per disk) 
Total Paid $. I 
Al orders must be prepaid I 
Please alow 4-6 waoks for dobvery 
COMPUTE: Publications inc. > I 
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Now Get Inside Your Commodore with 


COMPUTE!’s Gazette Disk. 


TTT Now there's a way to get all the exciting, fun-filled programs of 


COMPUTE!’s Gazette—already on disk—with COMPUTE!’s 
9) = «Gazette Disk. 


Subscribe today, and month after month you'll get a new, fully- 
tested 5'4-inch floppy disk guaranteed to run on your Commodore 
64, Commodore 128, or VIC-20 personal computer. 


COMPUTE!’s Gazette Disk brings you all the latest, most 
challenging, most fascinating programs published in the 
corresponding issue of COMPUTE!s Gazette. So instead of 
spending hours typing in each program, now all you do is insert 
the disk...and your programs load in seconds. 


RESULT: You have hours more time to enjoy all those great pro- 
grams which appear in COMPUTE!’s Gazette—programs |ike 
Disk Editor, Face-Off, Turbo Copy, Arcade Baseball, Sound 
Designer, SpeedScript, and hundreds of others. 


So don’t waste another moment. Subscribe today to COMPUTE!’s 
Gazette Disk at this money-saving price. Take a full year's 
subscription for just $69.95. You save 55 percent off the single 
issue price. Subscribe for two years and save even more! Retum 
the enclosed card or call toll-free 1-800-247-5470 now (in lowa 
call 1-800-532-1272). 


Individual issues of the Disk are available for $12.95 
(plus $2.00 shipping and handling) by calling 
1-800-346-6767 (in NY 1-212-887-8525). 


bler, and 5. assemble the file into 
object code. To make changes to the 
program—if there are bugs, for ex- 
ample—you have to go back to the 
editor, load the file, and edit it. 

An integrated editor/as- 
sembler gives you both programs in 
memory at the same time. It’s not 
necessary to go through the process 
of loading one, then loading the 
other, switching back and forth as 
you develop a program. Having 
available both the editor and as- 
sembler saves time, especially for 
programmers who like to write a 
few lines, assemble them, test the 
program, make a few changes, and 
continue from there. One disadvan- 
tage of an integrated package is that 
two programs take up more memo- 
ry than a single program; you may 
have less memory available for 
storing the source code. 

In addition to separate editors 
and integrated editor/assemblers, 
there’s a third type. Some assem- 
blers let you create source code 
with the built-in BASIC editor. You 
write and edit the source code with 
line numbers, as if it were a BASIC 
program. To look at the program, 
you LIST it. To save to disk, just 
SAVE. Relying on the BASIC editor 
means it’s not necessary to load a 
separate program that takes up 
valuable memory, Also, if you use 
“BASIC Aid,” ‘“MetaBASIC,” the 
“DOS Wedge,” or other program- 
ming utilities, you can usually have 
them in memory at the same time 
as the assembler and thus have ad- 
ditional conveniences such as auto- 
matic line numbering and the like. 

When you're writing ML pro- 
grams, you'll be spending a lot of 
time in the editor, so it’s important 
to find one that you feel comfort- 
able with. Some programmers pre- 
fer an editor that’s like a word 
processor, while others lean to as- 


semblers that let you write with the 
built-in BASIC editor. 


he source code for an ML pro- 
gram is made up of mnemonics, 
English-like abbreviations for ML 
instructions. On eight-bit Commo- 
dore machines, including the VIC, 


64, Plus/4, 16, and 128, all mne- } 


monics are three letters (an excep- 
tion is CP/M mode on the 128; for 
more about this, see “Programming 
the Z80,” elsewhere in this issue). 


The three-letter abbreviation § 


for ““LoaD the Accumulator with a 
number” is LDA, In source code, 
for example, the line LDA #0 
means load the number 0 into the 
accumulator, a register inside the 


main chip. When the file is assem- | 


bled, the source code instruction 
LDA #0 is turned into the object 


code (numbers) 169 and 0, The pri- © 


mary task of an assembler is this 
translation from mnemonics to 
numbers. 

A disk-based assembler re- 
quires the source code to be stored 
on disk, When it comes time to as- 
semble, you save the file and tell 
the assembler to start creating the 
object code from the source code on 
disk. RAM-based assemblers, (which 
almost always have a disk option as 
well), read through the source code 
in memory. RAM-based assemblers 
are much faster than disk-based as- 
semblers, which are hampered by 
Commodore's slow serial 
communications. 


Depending on your instruc- 


tions to the assembler, the object 
code (the executable ML program) 
can be sent to a disk file or to mem- 
ory. When a program is assembled 
to disk, you have to load the pro- 
gram before testing it. If the assem- 
bler places the object code directly 
in memory, you can SYS to it im- 
mediately after assembly. 
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Ir BASIC, GOTO and GOSUB re- 
quire a line number reference— 
GOTO 500, for example. The corre- 
sponding ML instructions jump 
(MP) and jump to subroutine (JSR) 
are followed by memory addresses, 
which serve the same function as 
line numbers in a BASIC program. 
But in a source code file, the current 
memory location (also known as 
the program counter) is not usually 
evident. You may have a general 
subroutine for reading the joystick, 
but if you don’t know the exact 
starting address, you can’t JSR to it 
in the program. 

Assemblers solve this problem 
» by allowing labels within your 
source code. You place the label at 
the beginning of a subroutine, and 
elsewhere in the program you can 
~ call it by name, You might label the 
joystick routine something like 
READJOY and then JSR READJOY 
when you need to use it. Labels are 
also used extensively within loops 
and branches, 

Equates are another sort of la- 
bel. At the start of the program, you 
can give names to important mem- 
ory locations, so you can use a 
name instead of a number. The 
screen background color on the 64 
is stored in 53281, which could be 
called BACKGROUND. To modify 
the screen color, you would store a 
value into BACKGROUND. When 
the assembler got to that line, it 
~ would know that BACKGROUND 

stands for location 53281. 
Assemblers that allow labels 
~ and equates are usually advertised 
- as “two-pass” or “three-pass”’ or 
“label-based.”’ In the first pass 
through the source file, the assem- 
bler sets up a list of labels and the 
equivalent memory locations or 
values. During the final pass, the 
file is assembled and the numbers 
~ are substituted for the labels. 


he 128 and Plus/4 include the 

MONITOR command, which 
enables the built-in machine lan- 
guage monitor. Although the 64 
does not come with a monitor, pro- 
grams like Micromon and Supermon 
are widely available. 

Monitors generally have a sim- 
ple assembler, which is suitable for 
writing short routines, but lacking 
many features found in a full- 
fledged assembler. Simple assem- 
blers don’t support labels, for one 
thing, leaving it up to the program- 
mer to calculate the addresses 
where subroutines start and end. 
Another shortcoming is that it’s 
often difficult to insert new lines or 
make corrections; if an assembler/ 
editor is like a word processor, then 
a monitor is like a typewriter—to 
add a sentence may require retyp- 
ing the whole page. 

The commands for disassem- 
bly and memory display make ML 
monitors useful for debugging, 
though, so some assemblers for the 
64 include a monitor to complement 
the other programs in the package. 


A assembler without frills 
should include at least the fol- 
lowing features: 


- A way to type, save, and load 
source files, whether it’s a separate 
editor or the built-in BASIC editor. 

+ Assembly from disk or mem- 
ory, with object files written to disk 
or memory. 

* Labels and equates. 

« Error-checking, to flag mis- 
spelled labels, duplicate labels, and 
mistakes of syntax, 

In addition, many assemblers 
offer additional features like macro- 
instructions—usually called macros 
for short. A macro is essentially a 
fill-in-the-blanks mini-program. A 


DIGITAL SOUND SAMPLING 


NOW FOR YOUR COMMODORE 64/128 


COMPLETE 
SAMPLER 64 
SYSTEM 


ONLY 
$89.95 


READY TO USE 
INCLUDES 
MICROPHONE 


Record any sound into memory and replay it 
instantly over several octaves, ascending or 
descending scale, echo, reverb, endless looping, 
etc. Many professional and instructional uses 
and fun for hobbyists, 
© Sample editing capabilities 
Full 8 bit ADC and DAC conversion 
rful sequencer with real time input 

Live effects menu with real time echo, reverb, 
digital delay. etc. 
® Line and Mic input, line output and feedback 

control 


DIGITAL DRUM BONUS! 
Get the COM-DRUM Digital Drum Software for 
only $14.95 (Reg. $29.95) when purchased with 
the Sampler 64. 
® Turns Sampler 64 into a digital drum machine 
© Real time and step sequencer 
© Polyphonic sound 
© Includes Digitally Recorded Drumkit Samples 
and pre-programmed rhythms to get you 
started 


SEND CHECK OR MONEY ORDER TODAY 10; 
MICRO ARTS PRODUCTS 
P.O, Box 2522, Dept. CG 
Philadelphia, PA 19147 
(215) 336-1199 
Include $3.50 shipping and handling. PA residents 
add 6% sales tax, Visa and Master Card Accepted. 


Commodore 
Service 


3-5 Day 
Turn Around 


(subject to parts availability) 
C-64 Repair ..... $5500 
1541 Alignment .$35°° 
1541 Repair .....$75°° 
Other Computers . .$CALL 


Parts & Return Shipping 
Included. 
Parts & Power Supplies 
Also Available 


To save €.0.D. charges — 
send Unit & Power Supply 
with check or M.O. 
Second Source Engineering 
9901 Horn Rd., Ste. B 
Sacramento, CA 95827 

(916) 364-5134 


mz 


You wouldn't settle 
for half the screen. 
Don't settle for half the sound! 
INTRODUCING 


THE 


“The sound 
is incredible!” 
~ Greg Rohlfing, Portiand, Oregon 


“My favorite peripheral!” 


—Lisa Rodgers, Tampa, Florida 


“An outstanding addition to my system!” 


— Jett Paul, Ontario, Canada 


THE ULTIMATE SOUND PERIPHERAL 


Highly-sophisticated, with crossover frequencies designed specifically for the 
COMMODORE and MACINTOSH 


There’s no other peripheral like it! The 
ULTRAVOX Sound System™ adds an ex- 
citing new dimension to all your game 
and music programs by generating in- 
comparable stereo sound from your 
Commodore 64, 128 (64 or 128 mode), 16, 


or +4, or from your Macintosh computer. 


Abuilt-in amp powers your speakers di- 
rectly, or plug the low level outputs right 
into your home stereo. And with the 
headphone jack you can even enjoy your 
full-stereo sound in private. 


© Foll stereo separation. 

© 100% compatible with all software. 

© Easy to use, no software required. 

© Sets up in seconds, no soldering. 

© Low level outputs compatible with your 
stereo, 

© Direct speaker outputs. 
Headphone jack included. 

¢ Full volume control. 

© 100% external hardware. 

© Power supply and complete operations 
manual included. 


COMPLETE READY-TO-GO 69 9 5 plus $4,00 shipping/insurance 
SYSTEM ONLY . (For COD orders add an additional $4.00.) 
VISA, Mastercard, 0.0, 


=< CALL NOW (503) 254-7855 


OR SEND CHECK OR MONEY ORDER TO 


PRECISION PERIPHERALS 
AND SOFTWARE 
P.0. Box20395 Portland, Oregon 97220 


All orders shipped within 24 hours. Dealer inquiries welcome. 


macro that opens a sequential file 
for reading, for example, might call 
several ROM routines and leave a 
blank for the filename. Within your 
source code, you would provide the 
name of the OPEN macro and tell it 
the name of the file to be opened for 
reading. When the assembler as- 
sembled that line, it would find the 
macro in the library and insert as 
many instructions as necessary in 
the object code, plus it would fill in 
the name of the sequential file you 
wanted to open for reading. Mac- 
ros, however, are often rather cum- 
bersome to use; the complexities of 
passing parameters to them can 
make them more trouble than 
they're worth. 

Most assemblers allow you to 
insert comments in the source file. 
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These notes to yourself are like 
REM statements in BASIC, Some 
assemblers offer conditional assem- 
bly, which is helpful if you're writ- 
ing for several different systems, a 
64 and a 128, for example. Like 
macros, however, conditional as- 
sembly is an additional level of 
complexity (and thus an additional 
potential source of bugs). Writing 
dual-purpose source code is, many 
programmers think, of dubious 
value. 

Some also include utility pro- 
grams. An unassembler, for example, 
reads an object file and turns it into 
source code which can be loaded, 
edited, and re-assembled. You may 
also find a disk disassembler, which 
reads a machine language file di- 
rectly from disk and lists it out as 


mnemonics. Occasionally, an as- 
sembler package will include the 
source code for the assembler itself. 
This is valuable because you can 
study the program (if you're just 
learning ML) or change the pro- 
gram, adding new features (if 
you're beyond the beginner's stage). 

One final note: In many cases, 
source files are not compatible be- 
tween different assemblers. If you 
plan to trade source code with a 
friend, it would be a good idea to 
use the same assembler. This is also 
true if you're studying ML ina class 
sponsored by a college or a user 
group. 

Following is a list of commer- 
cial assemblers for the Commodore 
64 and 128. For more information, 
contact the manufacturer. 


PROGRAMMING THE 


a 


Morris Simon, 


If you've already 
explored BASIC and 
6502 machine 
language, the 
Commodore 128 offers 
a brand new and 
fascinating world of 
programming— 

the Z80 chip. 


Are you taking full advantage of the powerful 280 processor in your Com- 
modore 128? | don’t mean just using CP/M mode to run the thousands of 
free programs in public domain libraries, although that’s a good start. I 
mean writing your own applications in Z80 assembly language. 

Why? For the same reasons that many professional programmers pre- 
fer machine language (or assembly language) over high level languages 
like BASIC: speed, efficiency, maximum control, and just plain fun. 

With a little reading and a little money, you can convert your 128 into 
an excellent Z80 CP/M development system, All you need to start is an 
assembler to assemble your source code into machine language; a loader 
to put your program where it'll be running in your RAM; and a debug- 
ger—since machine language programs don’t always run the first time. 
Note that I didn’t mention an editor: Most word processors will do just 
fine. Except for the Commodore 128, the rest of the system can cost less 
than $100, 

You have to start learning one of two kinds of assembly language: 
either Intel’s 8080 or Zilog’s Z80 instruction set. Which one? By the time 
you finish this article, you'll be able to make this decision for yourself. 


The Transition From 6502 Machine Language 
If you've ever written a machine language (ML) program for the 64 or 128, 
learning Z80 machine language shouldn't be very difficult. The same ML 
operations found in the 6502 family of chips are available in the Z80 (plus 
a few more), but the Z80 uses different mnemonics. If you know what the 
6502’s LDA #5 means, you'll probably recognize the Z80 instruction LD 
A,5. The two instructions are spelled a little differently, but they do the 
same thing; they put the number 5 into the accumulator. 

There area few differences of which you should be aware before start- 
ing, especially if you're experienced in 6502 ML. First, the Z80 has more 
registers than the 6502's A, X, and Y. The Intel instructions support seven 
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registers: B, C, D, E, H, L, and A. These are sometimes paired up for use as 
pointers to memory: BC, DE, and HL (the memory location pointed to by 
HLis called the M register, even though it’s in RAM and isn’t a true regis- 
ter). The Zilog commands include other registers, IX and IY for example. 
All of these additional registers serve a purpose—Indirect-Y addressing, 
which is widely used in 6502 programs, is not directly supported on the 
Z80, Instead of putting an address in a zero-page address and loading the 
accumulator through the pointer there, as you would in a 6502 program, 
you put the address into a register pair (HL, for example). The register pair 
serves the same purpose on the Z80 as zero-page indirect addressing does 
on the 6502. 

There’s a minor difference in hexadecimal notation, as well. When 
writing Z80 ML, it's more common to add the letter H after a hex number 
instead of putting a dollar sign in front of it. You’d substitute 400H for 
$0400, for example. 

In Commodore 6502 ML, the Kernal routines are important; they pro- 
vide common entry points, regardless of which computer you own, for es- 
sential routines that open files, get a character, print to the screen, close 
files, and so on. CP/M uses the same idea in its Basic Disk Operating Sys- 
tem (BDOS) and Basic Input/Output System (BIOS) routines. The BIOS 
call for getting a character from the keyboard works the same on a 128, 
Kaypro, Osborne, or other CP/M computer, The machines are different on 
the hardware level, but from a software standpoint, the operating system 
looks the same. If you plan to do Z80 program, it pays to learn how the 
BDOS and BIOS routines work. 


Intel Mnemonics 
The Intel instruction set was designed for the Z80's precursor, the 8080. In 
the early days of microcomputers, most programmers wrote in 8080 as- 
sembly language. Digital Research’s CP/M and most of the earlier CP/M 
software is written in 8080 code. 

Intel (8080) mnemonics can be confusing when you're first learning 
them. For example, MOV means Load, as in: 
MOV A,C ;LOAD REGISTER A WITH BYTE IN REGISTER C 


(In machine language, anything after a semicolon is a comment to be 
read and will not be processed by an assembler.) 

In the example above, it might appear as if the byte in register C has 
been shifted to register A, but actually it’s only been copied to register A 
(the accumulator). Other instruction sets, including the Zilog, use LD (for 
Load) for this operation. Note that MOV and LD are just different ways of 
saying the same thing; when the program is assembled, the object code— 
the numbers in memory—will be the same. 


Zilog Mnemonics 

The Zilog instruction set reflects the greater power of the Z80 CPU, which 
has many more 16-bit registers and register pairs, and facilities for direct 
input/ouput operations. The major improvements over the 8080 instruc- 
tion set include: direct loading of all 16-bit registers and pairs, instructions 
for two new 16-bit index registers (IX and IY), instructions to switch sets of 
registers, direct input and output addressing, block shift and block transfer 
instructions, enhanced jump instructions, and a more comprehensible sys- 
tem of mnemonics. 

Obviously, Zilog’s instruction set was designed to take advantage of 
all the Z80 improvements over its cousin, the pioneer 8080. In fact, if you 
write programs using Z80 mnemonics, you're accessing about as much 
power as you can from any eight-bit processor. So why would anyone go 
to the trouble of learning 8080 code when they could master the Z80 in- 
struction set just as easily? Let’s look into that. 

The choice between Intel and Zilog instruction sets depends on the as- 
sembler you're using to convert your source code into machine language. 
Digital Research (the people who invented CP/M) decided to stick with 
the Intel 8080 instruction set for all their software, including their work- 
horse assemblers, which Commodore packages for the 64 (ASM) and the 
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128 (MAC & RMAC). 

The Z80 commands are a su- 
perset of 8080 commands, in the 
same way that Commodore 128 
BASIC (version 7.0) is a superset of 
the Commodore 64’s BASIC 2.0. 
The Z80 can do everything the 
8080 can do, plus it has many addi- 
tional commands and more registers. 

Even though the 128’s CP/M 
assembler supports the Intel mne- 
monics, there’s an easy way to use 
the Zilog instruction set if you want 
to. 


Macros 

The Zilog set includes a very useful 
single instruction, DJNZ address, 
which is used to control loops. 
(DJNZ is Decrement and Jump if 
Not Zero.) To use it, simply load 
register B with the number of times 
you want a loop to occur, follow the 
load instruction with your loop sub- 
routine, and end it with DJNZ and 
the address of the beginning of the 
loop. The program automatically 
decreases the value in register B 
and repeats the loop until B equals 
zero. 

If you want to emulate DJNZ 
with Intel instructions, you have to 
list both components of DJNZ sepa- 
rately, first by DEC B, which de- 
creases the counter by one, and 
then by JNZ address, which per- 
forms the routine as long as B does 
not equal zero, You might then de- 
clare the combination “DEC B” + 
“JNZ loop address” as an external 
macro. 

Not all Z80 instructions can be 
emulated by Intel mnemonics, how- 
ever, even with complex Intel mac- 
ros. That’s why you'll find a file 
called Z80.LIB on the one of the 
CP/M source disks from Commo- 
dore (these are the disks you re- 
ceive when you mail the card in the 
CP/M section of the System Guide; 
there’s also a very detailed 500+ 
page CP/M manual included with 
the disks). 

To use Z80.LIB, put this line at 
the beginning of your source file: 
MACLIB Z80 


This tells the assembler you 
want to include the macro library 
file called Z80. With this line at the 
beginning of your program, you can 


use any or all of the Z80 command 
set. In a nutshell, it provides a look- 
up table that matches the Z80 mne- 
monics with the appropriate 
opcodes. It doesn’t just emulate 
DJNZ by splitting it into DEC and 
JNZ, for example, it actually assem- 
bles the DJNZ instruction into the 
corresponding 8080-style ML 
instruction. 


CP/M And Assembly 
Language 

CP/M isan operating system rather 
than a language. The relationship 
between CP/M and machine lan- 
guage is very simple. From your 
program, you make calls—or 
Jumps—to constant locations in 
CP/M memory any time you need 
the operating system to do some- 
thing. CP/M has further instruc- 
tions stored at those locations and 
will return control to your program 
when the job (whatever it is) is 
done. 

For example, location 0000H 
contains a jump instruction to the 
warm boot routine in CP/M’s 
BIOS. Therefore, anytime you wish 
to exit a program you could include 
JP 0000H (or JP 0 since decimal 0 = 
0H) and the program would exit to 
a warm boot at that point. This is 
the way to finish up a program and 
send the user back the the CP/M 
A> prompt. 

Most CP/M calls are made to 
location 0005H, where another 
jump instruction passes control of 
the program to CP/M’s BDOS. 
Before you CALL BDOS, your pro- 
gram needs to give CP/M a little 
more information, particularly the 
number of the service call you wish 
to make. You put this number in 
register C. For example, CP/M ser- 
vice call number 9 is a print string 
function which prints to the screen 
an ASCII string ending in a dollar 
sign ($). BDOS must see the num- 
ber 9 in register C and the string’s 
starting address in register pair DE. 
At another place in your program, 
you'll define the string to be printed 
with a DB (Data Byte) instruction 
(and end it with a $). For example: 


BDOS EQU0005H ;THIS EQUATE WILL OCCUR EARLY IN PROGRAM 
j;OTHER CODE 


LD ca 


;CP/M FUNCTION #9 NOW IN REG C 
LD DE,MSG_ ;POINT REGS DE TO ADDRESS OF MESSAGE 
CALL BDOS_ ;“BDOS” WAS DEFINED EARLIER AS “0005H” 


tae j;OTHER CODE 

DB “This is the message to be printed.$” 
Notice how the entries BDOS and MSG are defined in the leftmost la- 
bel column. A good assembly program will clearly separate labels, instruc- 
tions, operands, and comments: 
LABEL INSTR OPERAND }COMMENT 


It's common practice among Z80 programmers to place comments on 
nearly every line of source code. 

In the 128 version of CP/M (CP/M 3.0, also called CP/M-Plus), there 
are more than 60 specialized CP/M service calls you can use in your as- 
sembly language programs. To get the most out of your machine, you 
should begin practicing each of the service calls in sample programs until 
you understand what it does, 


MSG 


Z80 Programming Techniques 
In the examples which follow, I’ve used true Zilog mnemonics simply be- 
cause they take less space and are easier to understand. 


Loading And Storing Registers 

The Z80 allows you to load practically any register from memory, from an- 
other register or by immediate loading of a value. The basic form of a typi- 
cal load instruction is 

LD destination, source 


The destination may be either a register or a memory location, and source 
may be a register, memory location, or a value. For example, 
LD A,C {LOAD ACCUMULATOR FROM C 


Values can be loaded directly into registers: 
LD G6 ;PUT VALUE 6 DECIMAL IN REGISTER C 


or indirectly from addresses in RAM: 
LD A\(5973H) — ;LOAD A WITH BYTE FROM ADDRESS 5973 HEX 


or indirectly from addresses in registers: 
LD A,(BC) s;LOAD A WITH BYTE FROM ADDRESS IN BC 


Note that a value in parentheses is an address, while one without pa- 
rentheses is a numeral. Remember that if you want a hex number (or ad- 
dress), you must add the letter H. Z80 assemblers default to decimal 
numbers, 

Storage of data is done by the reverse procedure: 

LD (address), register 


The stack pointer (SP) is a 16-bit value in the Z80, which means you 
can point it to any location in memory. This is quite useful in situations 
where you need to clear out a section of memory. Just set the stack pointer 
and PUSH a series of zeros onto the stack. If you wanted to save the stack 
pointer first, you’d use this instruction: 

LD (0A71H),SP_— ;LOAD STACK POINTER (A 16-BIT ADDRESS) 
jINTO THE TWO-BYTE LOCATION STARTING AT 
jA71 HEX; THE LOW BYTE WILL BE STORED 
;FIRST, THEN HIGH BYTE AT A72 HEX 

A common application of the Z80 loading operations is to initialize 
RAM locations with certain values, For example, let’s store a byte of data 
(BYTE) at location 500H: 

LD ABYTE ;PUT DATA BYTE INTO ACCUMULATOR 

LD (0500H),A ;COPY BYTE IN REGISTER A TO 500 HEX 

The same principle can be used to initialize word-length values by 
sending them through the HL register pair, which functions almost as a 
16-bit accumulator: 
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LD HL,WORD 
LD (0500H),HL 


;PUT DATA WORD INTO HL PAIR 
;COPY L INTO 500H & H INTO 501H 


Arithmetic And Logic 

The Z80 allows greater flexibility in arithmetic and logical operations than 
most other eight-bit CPU’s. For a simple example, let’s add a constant, 
NUMBER, to whatever variable happens to be in a given location, (VAR), 
and then change the variable: 


LD A,(VAR) ;COPY VARIABLE INTO ACCUMULATOR 
ADD A,NUMBER ;DO THE ADDITION 
LD (VAR),A ;AND CHANGE THE VARIABLE AT LOCATION VAR 


Further examples of such routines would’ take up too much space in 
this article, but there are good mathematical macros in most Z80 libraries 
for anything you want to do. The Z80’s double (16-bit) registers make dou- 
ble-precision calculations a breeze. 


Bit Manipulation 

Most eight-bit computers have only one way to manipulate individual 
bits—by using logical instructions such as AND and OR to mask or set por- 
tions of bytes. The Z80 lets you use those, if you wish, but also provides 
three special bit manipulation instructions: SET, RES (for reset), and BIT 
(to test a bit). Each of these codes works the same way: 


SET nr iSET BIT n OF REGISTER r 

RES nr jCLEAR (RESET) BIT n OF REGISTER r 

BIT nr TEST BIT n OF REGISTER r—SET THE ZERO 
ijFLAG IF n=0 OR CLEAR IT IF n=1 

Shift Operations 


For those of you who like binary operations, the Z80 allows you to per- 
form shift and rotate functions on any register or memory location. 


Branching Instructions 

The Z80’s amazing repertoire of relative and absolute jumps allows condi- 
tional and unconditional branching by testing single bits, individual flags, 
and value comparisons. You can test a value either in a register or in mem- 
ory for sign, carry, zero, or parity/overflow and then branch in ways 
which resemble GOTO, IF, and THEN instructions in BASIC, Some com- 
mon examples: 


cE LIMIT ;IS ACCUMULATOR GREATER THAN LIMIT? 
JR NC,NEXT jNO CARRY FLAG SO GOTO NEXT 

AND A ;SET ALL FLAGS TO TEST ACCUMULATOR 
jp P,NEXT jIF ACCUMULATOR IS POSITIVE GOTO NEXT 
CF KEY ;ELSE SEE IF A=KEY 

JR ZLAST YES, A=KEY, SO GOTO LAST 

NEXT 

LAST 


Here’s something to watch out for if you're a 6502 programmer. With 
the 6502, you set the carry (SEC) before a subtract with carry (SBC) opera- 
tion. If the carry is still set after the subtraction, it means the first number 
was larger than the second, The Z80 is just the opposite: You clear the car- 
ty before adding or subtracting. This also affects comparisons, In the ex- 
ample above, the CP instruction compares the Accumulator to the number 
called LIMIT. If there’s no carry, then the Accumulator was larger than 
LIMIT. (On the 6502, the carry would be set if LIMIT was smaller.) 


Loops 
Looping with subroutines is facilitated in the Z80 by the DJNZ instruction 
mentioned earlier. It’s very easy to combine registers B and C to use a 16- 
bit loop for longer executions, or to design nested loops within loops using 
DJNZ. 
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“Echelon development systent utilities 


Books . S 
8080/Z80 Assembly Language by 
Alan Miller; John Wiley & Sons, 1981. 
(A good introduction to both instruction. 
sets.) . 
Dr. Dobb's Z80 Toolbox by David E, 
Cortesi; M&T. Publishing, 1985, (Uses 
Intel instruction set; available on disks.) 


Soul of CP/M by Mitchell Waite and 
Robert Lafare; Howard Sams & Co., 
1983. (A classic on the Intel instruction 
set.) 

280. Assembly Language Subroutines. 
by Lance\A. Leventhal and Winthrop 
Saville; Osborne /McGraw-Hill, 1983. 
(My favorite on Zilog mnemonics.) 


Software 


Commodore 128 development package. 
(MAG, RMAC, SID, etc.); from Conimo 

dore Business Machines, 1200. Wilson 
Dr., West Chester, PA 19380. 


(Z-Tools); for either Intel or Zilog pro- 
grams; from Echelon, Inc., 885 N. San’ 
Antonio Rd., Los Altos, CA 94022... 
Microsoft development system (M80, 
180, etc); for either Intel or Zilog 
programs; from Microsoft, Inc., 10700 
Northrup Way, Bellevue, WA 98004. 

SYSLIB3 by Richard Conn. (In-my opin-~ 
ion, the best collection of Z80 routines. 

Available in either Intel or Zilog mne- 
monics from Echelon or on some bulletin 
boards.) . WH 


Any GAZETTE readers wanting: 
further information on Z80 assembly. 
language programming are wel- 
come to write to me at 118 Brook-. 
haven, Tuscaloosa AL 35405. Seni 
a self-addressed, stamped envelope 
fora quick reply. 


Handling Arrays, Tables, And Indexing 

The two extra index registers plus easier access to all register pairs allow 
you to handle both indexed and unindexed arrays neatly and quickly. One 
common style of array handling involves pointing HL to a memory loca- 
tion, and then loading byte after byte from that location into DE for further 
processing. If desired, register B can be used as a counter: 


LD HL{START) ;POINT HL TO START OF ARRAY 

LD B10 ;SET B AS A COUNTER FOR TEN REPETITIONS 
MORE LD E,(HL) ;LOW BYTE GOES INTO E 

INC HL jINCREMENT HL BY ONE, POINT TO NEXT BYTE 
LD DHL) #HIGH BYTE INTO DE 

INC HL ;POINT TO NEXT ELEMENT 

CALL LOUT jTHIS MIGHT BE A ROUTINE TO OUTPUT DE 
DJNZ MORE ;RETURN FROM ROUTINE, DECREASE COUNTER, 


;AND DOIT AGAIN UNTIL B=0 


With indexing, a register is loaded with an offset value which is then 
added to the base of the array each time the loop is repeated. This example 
loads the accumulator with every eighth element in an array until 20 en- 
tries have been checked: 


LD HL(START) ;POINT HL TO START OF ARRAY 


LD B,20 ;COUNTER SET FOR 20 ENTRIES 
LD DES jOFFSET = 8 DECIMAL 

MORE ADD HL,DE jOFFSET ADDED TO BASE, STORED IN HL 
LD AHL) ;GET 8TH ELEMENT INTO ACCUMULATOR 
CALL LOUT jAND DO SOMETHING TO IT 
DJNZ MORE jRETURN & DO IT ALL AGAIN UNTIL B=0 


Block Move (LDIR) And Compare (CPIR) 

These categories of instructions are two of the more powerful enhance- 
ments of the Z80 over the 8080. Logically, both procedures are very simple 
and work the same way. You put the size of a block (in bytes) in register 
pair BC, then point to the beginning of the block with HL. If you're moving 
the block, you put the destination starting address in register pair DE: 
LD BC,128 ;SET COUNTER FOR 128 BYTES 

LD DE,NEWADD _;DESTINATION TO START AT NEWADD. 


LD HLOLDADD = ;SOURCE STARTS AT OLDADD. 
iMOVE IT! 


If all you want to do is scan a block of data for a particular byte, you 
can omit the destination address, since the comparison will be done in the 
accumulator: 


LD BC,128 jSET COUNTER FOR 128 BYTES 

LD HL,START iSTARTING ADDRESS OF BLOCK IN HL 

LD A,LAH jPUT CONTROL-Z IN ACCUMULATOR 

CPIR ;COMPARE HL WITH A AND INCREMENT HL 


jUNTIL EITHER “Z IS FOUND OR BC=0 


Enhanced Input And Output Instructions 
With the Z80, you can input or output data from either your registers or 
RAM directly to and from your computer's various ports. And you can do 
this by blocks. The relevant instructions are IN, OUT, INI, IND, OUTI, 
OUTD, OTIR, and OTDR. They're easy to use, simply by specifying the 
port in question: 
IN A,28H)  ;GET A BYTE FROM PORT 28 HEX 
OUT (CB ;OUTPUT BYTE IN B VIA PORT NUMBER IN C 

The block transfers (INIR, INID, OTIR, OTDR) work very much like 
the block move and compare instructions described in the last section, re- 
serving register C for the port address and HL for a memory address. 


Interrupt Processing 
Fast interrupts on the Z80 use the RST instruction plus the destination ad- 
dress. For example: 


RST 38H ;TRANSFERS CONTROL TO ADDRESS 38 HEX 


There will usually be a perma- 
nent jump instruction at the desti- 
nation which then sends control to 
a special routine, such as a graphics 
driver. You can also store an elabo- 
rate subprogram in the alternate 
register set and shift to it with an 
RST jump. 


Your Choice 

Have you decided which instruc- 
tion set and assembler you want to 
use in your 128? If you've already 
bought the optional Commodore 
development package, which in- 
cludes MAC, RMAC (for Relocat- 
able code MACRo assembler), the 
SID debugger, LINK loader, and 
LIB library manager, then you've 
gota choice, If you include the 
Z80.LIB macro file, you can use 
either (or both) instruction sets. 

Two other fine assembler 
packages are Echelon’s ZAS-ZLINK 
and Microsoft's M80-L80 systems. 
Both are compatible with the Intel- 
based ASM-MAC family, and ZAS 
can even assemble code for the Hi- 
tachi HD64180, a new eight-bit 
CPU which is upward compatible 
with the Z80. 

Regardless of your assembler 
selection, you should build up a 
collection of good Z80 subroutines, 
The best Z80 library I know of is 
SYSLIB3, a public domain version 
of which may be on a CP/M bulle- 
tin board near you. Echelon distrib- 
utes SYSLIB3 in a set with other 
libraries and manuals for Z80 de- 
velopment systems for under $100. 

You really can’t appreciate the 
speed and efficiency of your Z80 
until you start speaking its own lan- 
guage. Until then, you'll just have 
to be content with running thou- 
sands of excellent programs written 
by other people. Learning Z80 as- 
sembly language will give you even 
greater computing power and will 
allow you to do exactly what you 
want to do with your machine. To 
make it easier, refer to the list of 
books and software on page 40. 
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User Group Update 


When writing to a user group for information, please remember to 
enclose a self-addressed envelope with postage that is appropriate for 
the country to which you're writing. 


Send typed additions, corrections, and deletions for this list to: 


COMPUTE! Publications 

P.O. Box 5406 

Greensboro, NC 27403 

Attn: Commodore User Groups 


User Group Notes 


The Midwest C-64 Users Group has changed its mailing address to 
P.O. Box 9311, Highland, IN 46322, 

The C64/128 User Group of Koeln, West Germany has 
disbanded. 

The Platte Valley Commodore Users Group has changed its name 
and address to Platte Computer Users Group (PVCUG), 1685 Bonanza, 
Gering, NE 69341. 

The CIVIC64 Commodore Users Group of Oxnard and Camarillo, 
CA has changed its mailing address to CIVIC64, P.O. Box 2442, Ox- 
nard, CA 93034-2442. 

The Westinghouse BWI Commodore Users Group has changed its 
name and address to Westinghouse Commodore Users Group, P.O. Box 
8756, Baltimore, MD 21240. 

Antelope Valley Commodore User Group (AVCUG) has a new 
address: P.O. Box 4436, Lancaster, CA 93539, 

The Commodore Club of Mobile is now the Amiga/Commodore 
Club of Mobile, The address remains: 3868-H Rue Maison, Mobile, AL 
36608. 

The Arizona VIC & 64 Users Group has changed its name and 
address. It’s now the Arizona Commodore Users Group, P.O. Box 
27201, Tempe, AZ 85282. 

Power Surge Users Group also has a new address: c/o Orange- 
wood Academy, 13732 Clinton Ave., Garden Grove, CA 92643. 

The Colorado Commodore Computer Club’s new address is 
11855 Adams St., Northglenn, CO 80233. 

The Naugatuck Valley Commodore User Group has a new mail- 
ing address: P.O. Box 622, Waterbury, CT 06720. 

The Redwood Falls Area Computer Exchange can now be reached 
at 717 E. Wyoming St., Redwood Falls, MN 56283. 

The Heartland Users Group’s new address is P.O. Box 443, Cape 
Girardeau, MO 63701. 

The Tri-Cities Commodore Club has a new address: 802 Kimrod 
Dr., Johnson City, TN 37601. 

The Old Hickory Commodore Users Group can now be reached 
at 542 Lambuth Blvd., Jackson, TN 38301. 

Billy Schultz of McKinney, Texas is interested in starting a Com- 
modore user group. He can be reached at 2808 Colonial Ct., McKinney, 
TX 75069. 
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New Listings 


ALABAMA 
The Byte Bunch, 318 Perryman St,, Evergreen, AL 
36401 


Commodore User Group, Rt, 2, Box 105, Smiths, 
AL 36877 


ALASKA 


Mat Su Commodore 64 Club Inc. Box 1208, 
Palmer, AK 99645 


ARIZONA 


Phoenix Arizona Commodore Club, P.O, Box 
34905, Phoenix, AZ 85067 


ARKANSAS 


Commodore Information Association, P.O, Box 
1755, Conway, AR 72032 


CALIFORNIA 


€.P.U, Commodore Users Group, 27202 
Corcubion, Mission Viejo, CA 92692 

Point Mugu Users Association, P.O. Box 42360, 
Point Mugu, CA 93042 

Commodore Systems User Network, P.O. Box 
261, Lompoc, CA 93438 


FLORIDA 


Welaka Commodore Users Group, P.O. Box 909, 
Welaka, FL 32093 

Northwest Florida Commodore User Group, 
P.O. Box 15565, Pensacola, FL 32514 

Fellsmere’s Club Compu-Mania, 2149 Watkins 
Rd. S.E,, Palm Bay, FL 32907 


ILLINOIS 


The Software Link, 763 Stewart Ave., Elgin, IL 
60120 


The 64 Smorgasboard, 51 Thornhill Dr., Danville, 
IL 61832 


INDIANA 

Kosciusko Commodore User's Group, 1721 S. 
Latta St., Warsaw, IN 46580 

Richmond Area Commodore Users Group, P.O. 
Box 1332, Richmond, IN 47375 


Plymouth County Commodore Users Group, 300 
Third Ave, SE, Lemars, 1A 51031 


KANSAS 


Newton Area Commodore Club, Larry Wilson, 
112 Brookside, Newton, KS 67114 


8 Group of Cape Cod, P.O. Box 
MA 02635 

8 Electronic Modem Operators 
. Box 3336, Fall River, MA 02722- 


MICHIGAN 

Downriver Commodore Group, P.O. Box 1277, 
Southgate, MI 48195 

Washtenaw Commodore Users Group, 4490 
Oakengates Dr,, Ypsilanti, MI 48197, 

Central Michigan Commodore Users Group, 
5600 N, Bollinger Rd,, Vestaburg, MI 48891 


Elk Rapids Commodore Users Club, 6697 E. 
Harbor Dr., Elk Rapids, MI 49629 

Northern Michigan Commodore Club, P.O, Box 
3066, Gaylord, MI 49735 

U. P, Computer Users Group, P.O. Box 508, 
Ishpeming, MI 49849 
MINNESOTA 


Commodore User Learning Exchange, 718 N. 
First Ave. E,, Duluth, MN 55805 


MISSOURI 


Forefront C-128 National Users Group, P.O. Box 
21836, St. Louis, MO 63109 


NEBRASKA 


International Commodore Language Interest 
Group, 1812 North 1, Fremont, NE 68025 


VV MPSHIRE 


Commodore Users Group, R.D. 9, Box 307, 
Concord, NH 03301 
NEW YORK 

Commodore Computer Game Pros of NY, 4263 
Carpenter Ave., Bronx, NY 10466 

For Your Computer Only, 35 Belleview Ave., 
Ossining, NY 10562 

Commodore Long Island Club, 2949 Roxbury Ct., 
‘Oceanside, NY 11572 

Frontier Commodore Users, RFD #1, Box 352A, 
Chazy, NY 12921 

The Shadows Commodore 64 Users Group, 10 
Boylston St., Oneonta, NY 13820 


OHIO 


Dayton Area Commodore Users Group, 679 
Murray Hill Drive, Xenia, OH 45385 


OKLAHOMA 


Coweta-Commodore Users Group, Box 8204, 
Coweta, OK 74429 

Osage/Kay Commodore User's Group 
(OKCUM), 300 Woodbury Rd., Ponca City, O} 
74601 


PE VANI 


Susquehanna Valley User Group, RD #5, Box 
145, Danville, PA 17821 

ABC C-64 Chips Commodore Users Group, 3159 
Middletown Rd., Bethlehem, PA 18017 


TENNESSEE 


Cleveland Commodore User Group, 2413 Hick- 
ory Dr. NW, Cleveland, TN 37311 


TEXAS 


Commodore Users Club, 5309 Strickland, The 
Colony, TX 75056 

Klein Commodore Users Group, 7627 Litchfield 
Ln., Spring, TX 77379 


WASHINGTON 


Commodore Bellingham Users Group (CBUG), 
P.O, Box 2756, Bellingham, WA 98227 


WISCONSIN 
Club 84, P.O. Box 72, Caledonia, WI 53108 


Outside the U.S. 


AUSTRALIA 

Cairns Commodore Users Group, P.O. Box 7, 
Earlville, Cairns, Queensland 4870, Australia 
BERMUDA 


Commodore Computer Club of Bermuda, P.O. 
Box HM 2093, Hamilton 5, Bermuda 


BRAZIL 

Brasilian Club of VIC-20, Flavio Joao Piagentini, 
Rua Heitor de Moraes, 856-Pacaembu, Sao 
Paulo, Brasil 01237 
CANADA 

Powell River Commodore User Group 
(P.R.C.U.G,), 5562 Willow St., Powell River, 


BC. la 
Microcom 64, 110 St, Louis St,, Rimouski, Quebec 
SL SP7 


INDIA 

Commodore Users Group, c/o $. Ram Gopal, 1B, 
19th ‘D’ Main Rd., Rajajinagar First Block, 
Bangalore 560 010, India 
JAPAN 

Zama/Atsugi Commodore Users Group, 500th, 
MI. Gp. Box 45, APO, San Francisco, CA 96343- 
0091 
POLAND 

Stefan Kssecki or Elizbieta Kossecka, 02-757 
Warszawa, ul. Burgaska 3/24/1, Poland 

Andrzej Wiechowski, ul. Lokietka 47/38, 31-279 
Krakow, Poland 

Walter Sulimierski, ul. Olimpijska 56, 02-636 
Warsaw, Poland 
SPAIN 

Costa Blanca Computer Club, c/o Ed Kelly, 
Montebello 25, La Nucia-Alicante, Spain 
SWEDEN 

Swedish Esoteric Society Avec Modem, Lars B. 
Lundin, Parkgatan 16 3tr., S-112 30 Stockholm, 
Sweden 
WEST INDIES 

Caribbean Commodore Computer Club, Jim 


Lynch, P.O. Box 318, St. Johns, Antigua, West 
Indies 


To Our Readers: 


COMPUTE! Publications is a part of the ABC Consumer Magazines group of ABC 
Publishing, Inc. and recently we consolidated many of our operations and moved 
our Customer Service Department to the New York ABC headquarters. If you 
have any questions regarding back issues, disk orders, book orders, or how to 
place an order, call toll free 1-800-346-6767. New York residents should call 


212-887-8525. 


If you want to order a subscription to COMPUTE!, COMPUTEI’s GAZETTE, COMPUTE!’s 
GAZETTE DISK, Or the COMPUTE! DISK, Call 1-800-247-5470 or in lowa call 


1-800-532-1272, 


Our Editorial Offices remain in Greensboro, North Carolina. If you wish to submit an 
article for publication, write us at COMPUTE! Publications, Inc., P.O. Box 5406, 


Greensboro, NC 27403. 


We thank you for your interest and continued support of COMPUTE! Publications. 


COMPUTE! Publications,Inc.g 


Part of ABC Consumer Magazines, nc. 
One of the ABC Publishing Companies 
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reviews 


Golden Oldies is a slice of computer his- 
tory on a disk, containing four classic 
computer software games—the first all- 
text computer adventure game, Adven- 
ture; the self-replicating world-within- 
a-world, Life; the original arcade game, 
Pong, and the famous simulated com- 
puter psychiatrist, Eliza. 

It’s only fair to state immediately 
what these programs are not. They in 
no way can be compared with the com- 
puter software available today; in fact, 
as one experienced computer program- 
mer and writer points out, these pro- 
grams represent early, crude attempts 
at programming before programming 
was done well. They also show all of 
the limitations of computer hardware 
just 10 to 15 years ago. Don’t expect the 
advanced graphics and sound features 
and the other bells and whistles you've 
come to expect on the Commodore 64 
and 128. 

On the other hand, Golden Oldies is 
a fascinating look at just how far com- 
puter software has come. For anyone 
interested in the roots of personal com- 
puting, these four programs each repre- 
senta distinctly different cornerstone of 
today’s software. Adventure was the 
precursor to all of the computer fantasy 
and adventure games. Eliza has been 
hailed as a program important in the 
early thinking about artificial intelli- 
gence, even though its author viewed it 
as a joke. Life is, in many ways, the 
forerunner of today’s sophisticated 
computer simulation and modeling 
programs. And Pong spawned the en- 
tire arcade computer game industry. 
Though the programs are seriously dat- 
ed by today’s standards, remember that 
each one was a pioneering effort in its 
time. 

These programs are recreated here 
in a form faithful to the original. For ex- 
ample, this is the authentic version of 
Adventure endorsed by its creators, Will 
Crowther and Don Woods, who origi- 
nally developed the game on a main- 
frame computer in the early days of 
“hacking,” or computer programming. 
The version of Pong included on the 
disk is actually a recreation of the origi- 
nal game by Al Alcorn, who first devel- 
oped Pong for Nolan Bushnell’s then- 
fledgling company, Atari. There's also 
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Golden Oldies, Volume 1 


an alternate version included with a 
few more features, 

The Golden Oldies package is en- 
hanced by its manual, a 42-page book- 
let that engagingly recreates the 
historical context, samples of play, and 
related information. Excerpts from such 
recent books as Tracy Kidder’s Pulitzer 
Prize-winning The Soul of a New Ma- 
chine, Steven Levy's Hackers, Scott 
Cohen's Zap, The Rise and Fall of Atari, 
and William Poundstone’s The Recur- 
sive Universe all help to set the stage as 
you use the programs. 

For those unfamiliar with each of 
the programs, here’s a brief explanation 
of what they're about: 

Adventure is an all-text game in 
which you explore the mysteries of Co- 
lossal Cave, gathering treasure and 
avoiding the many dangers of this sub- 
terranean world. Don’t expect the kind 
of full-sentence interaction you may 
have come to expect from recent text 
adventures, Adventure understands 
one- or two-word commands, and only 
the first five letters of each word. Still, 
the game itself is fun, if limited in 
scope. 

Pong (from Ping-Pong) is the origi- 
nal computer table tennis game, in 
which you control an onscreen paddle 
that bounces the ball, a white blip on 
the screen, back and forth. You can play 
against the computer, or two people can 
play against each other. 

Eliza, first developed by computer 
scientist Joseph Weizenbaum to mimic 
Rogerian psychotherapy, has been tak- 
en seriously by many people as an early 
example of artificial intelligence. It’s 
really just a very clever program that 
appears to understand your questions 
and statements, leading you gently 
through an exploration of your feelings. 
Weizenbaum was reportedly quite sur- 
prised when people began calling Eliza 
an example of machine intelligence. He 
meant it more as a joke than a serious 
endeavor. It can be a lot of fun to play 
with, but remember that it’s a game. 
There are other implementations of 
Eliza, some more complete than others. 
This version is supposed to be a faithful 
recreation of Weizenbaum’s original. 

Life is a computer simulation that 
was originally developed by British 


mathematician John Conway, and then 
popularized by science writer Martin 
Gardner in the October 1970 issue of 
Scientific American. The game of Life is 
played on a grid field, where succes- 
sions of small screen symbols—called 
generations of cells—live out their lives 
according to a set of arbitrary physical 
laws. Depending on the rules, the indi- 
vidual cells live and prosper, die and 
make way for new cells, mutate into 
different forms, and so on, It’s a com- 
plete world or universe in microcosm, 
and has fascinated many computer us- 
ers since its introduction on mainframe 
computers (and later on microcomput- 
ers). You really have to experience Life 
to understand it, and once hooked on 
its complexities, you may find it fas- 
cinating. 

Golden Oldies is a trip into the past 
for a look at where personal computing 
started. And despite the limitations of 
the programs, it’s a nostalgic and enter- 
taining journey. 

—Selby Bateman 
Software Country 
9713 Santa Monica Blvd. 
#202 
Beverly Hills, CA 90210 


Electronic Arts (distributors) 
1820 Gateway Dr. 

San Mateo, CA 94404 
$29.95 


RADARBASIC 50K 


RADARBASIC 50K is a handy utility 
program offered on a plug-in cartridge 
for the Commodore 64, It’s a product of 
Radarsoft, a Dutch software company 
that's fairly new in this country. 

As the title implies, RADARBASIC 
50K gives you 50K (51,199 bytes) of free 
RAM, all of which is available for 
BASIC programs. This is 12K more 
RAM than is normally available with 
the Commodore 64, and there’s no con- 
flict with your old BASIC programs. 
They may not take advantage of the ad- 
ditional memory, but they'll all work as 
usual with one minor exception: Since 
the 12K area added to BASIC RAM 
starts at 40960 and extends to 53247 
($A000 and $CFFF in hex), any BASIC 
program that uses this area to PEEK or 
POKE memory, or for a machine lan- 


guage routine, will not work properly. 
It's not necessary to unplug the car- 
tridge if you do have a program that 
uses this area. Merely type in a shifted 
K (for Kill) and press RETURN. The 
computer is reset to its conventional 
status and you can load and run your 
program as usual, 

Perhaps the most interesting thing 
about this program is the commands it 
adds to the standard Commodore oper- 
ating system to easily access disk and 
tape drives. Similar in some ways to 
other disk wedge programs, I found the 
ease of use, versatility, and logic of 
these new commands to be better than 
any other disk enhancement program 
I've used. All the commands are en- 
tered by pressing a single shifted key 
and RETURN. Never has it been so 
easy to perform all the functions that 
are necessary to access your disk drive. 
People who use two drives will greatly 
appreciate the way you can switch from 
one to the other, The program starts 
with device #8 as the default device. If 
you have a second drive, just type #9 
(or whatever device number it’s set for) 
and it becomes the new default device, 
accessible by all the single key com- 
mands, Typing #8 and pressing RE- 
TURN takes you back, 

Cassette users will also be interest- 
ed in this program, Type #1 and then 
press RETURN and the cassette is now 
the default device with all the single 
key commands available (except those 
that only relate to a disk drive). And 
there’s another option for the cassette 
user. Set the device to #2 and you can 
SAVE and LOAD at ten times normal 
speed. That’s about as fast as your disk 
drive and it worked reliably every time 
I tried it. You must remember though 
that programs saved this way cannot be 
loaded without use of the cartridge. 

Two other commands are avail- 
able. SHIFT-R lets you renumber a 
BASIC program, selecting a new start- 
ing line number and increment value. 
SHIFT-C followed by a number be- 
tween 1 and 16 immediately changes 
the screen and border color—much 
faster than the usual POKEing method. 

RADARBASIC 50K is a handy utili- 
ty package. It provides additional RAM 
for BASIC, convenient commands, and 
it's not necessary to unplug the car- 
tridge to run other programs. The car- 
tridge also works well in 64 mode on 
the Commodore 128. The brief instruc- 
tion manual is not as clearly written as 
it should be, but operation is so easy to 
understand that no one will have any 
difficulties using the program. 

—Howard Parnes 
Radarsoft 
Adam, Cobb, & King, Inc. 
655 John Muir Dr, E411 
San Francisco, CA 94132 
$37.50 


Lords of Conquest 


This is a classic strategy game for the 
Commodore 64 in which the player's 
ultimate goal is territorial supremacy. 
It’s a game of maps, invasions, and de- 
fense—and it has a large number of op- 
tions. Up to four players may compete, 
or you can play against your computer. 
As in Risk or the Japanese game Go, 
board games similar in concept to Lords 
of Conquest, players take turns selecting 
territories on the map. Some of these 
are important because of their location, 
others because of their wealth in natu- 
ral resources. 

Action takes place in yearly cycles 
consisting of several phases: develop- 
ment, production, trading, shipment, 
and conquest. During each phase, each 
player must make important decisions: 
Should you move your stockpile of re- 
sources to a new territory, better pro- 
tected from an attack? Or should you 
use your wealth to develop a weapon or 
establish a new city? 

The first phase to be considered in 
each year—after the first year—is de- 
velopment. You can invest your wealth 
in developing weapons or in building a 
new city. Often the choice is a difficult 
one: Is one of your neighbors preparing 
for an invasion? Will you gain more in 
the long run by developing a new city 
rather than a new weapon? 
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Following the trade phase, you de- 
cide whether to move your stockpile of 
wealth or transfer some of your forces 
toa more strategic location, 

Finally, you enter the conquest 
phase. This is where the real action in 
Lords of Conquest occurs. It's your 
chance to launch a relentless attack ona 
neighboring territory. If you've plotted 
your moves correctly, you could gain a 
strategic victory. A wrong move could 
tip your hand prematurely. 

Lords of Conquest is a highly in- 
volved scenario with many levels of 
complexity so that each game, whether 
against friends or the computer, is 
bound to havea different outcome. You 
may choose to play on any of the 20 
maps included, or, once familiar with 
the rules, you may create your own 
map. 
This is a highly enjoyable game. 
The designers have made it easy to use 
and easy to play. You'll find yourself 
very quickly concentrating on your 
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strategy and not on how to communi- 
cate with the program. Playing time is 
usually less than three hours, and a 
“save game” option is available. 

Success in this game requires care- 
ful strategy and an ability to play offen- 
sively and defensively. Make the right 
moves, and you'll be hailed as the reign- 
ing Lord of Conquest. 


—George Miller 
Electronic Arts 


1820 Gateway Dr. 
San Mateo, CA 94404 
$32.95 


For those of us still using programming 
incompetence as an excuse for not cre- 
ating our own computer games, Activi- 
sion’s GameMaker comes as a rude 
shock, GameMaker is a thorough, com- 
plete package that makes it relatively 
easy to design arcade games that actu- 
ally work, Game design is still no pic- 
nic, but spending the time needed to 
understand GameMaker will put the 
burden on the creative rather than the 
mechanical side of creating quality 
games. We can no longer hide behind 
incompetence. 

GameMaker consists of five sepa- 
rate modules: SceneMaker, Sprite- 
Maker, SoundMaker, MusicMaker, and 
the Editor. You use the first four to cre- 
ate the graphics and sound features of 
your design, then combine them into a 
working game by using the Editor. 
Once satisfied that your game is a good 
‘one, you can save it to disk and play it, 
give it away, or sell it. The finished 
game runs independent of the original 
program, 

All you need to design a game is a 
joystick; you don’t have to type any- 
thing. In each module, you use the joy- 
stick to move from feature to feature, 
name to name, even number to num- 
ber. Even the program commands are 
selected by joystick from a Command 
Window; lines with more than one in- 
struction still use only the joystick. 
Those without joysticks can use the 
function keys and the space bar instead. 

SceneMaker allows you to design 
the backdrops against which your game 
moves, It is in effect a paint program, 
with a wide choice of colors and such 
commands as Draw, Circle, Line, Box, 
Fill, Zoom, Copy, View, Move, and 
Erase. Anyone familiar with paint pro- 
grams will recognize that this list allows 
considerable flexibility in creating a pic- 
ture. In fact, GameMaker’s individual 
modules are all thorough and flexible. 

With SpriteMaker, you create the 
sprites that will move across the scene. 
Once again, everything is done with the 
joystick. You simply draw the sprite as 
you want it, then, if you wish, combine 
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it with other sprites, or with other 
frames of the same sprite, to animate it. 
For example, you might use four sprites 
to create a horse, then give each of the 
four six separate moving “frames”. Your 
horse will then run across the screen, or 
buck up and down, The animation is as 
sophisticated as you make it. 

SoundMaker creates sound effects, 
The SoundMaker screen resembles a 
“sound board” found in a recording 
studio, with knobs and sliders and 
gauges. The master controls are Repeat, 
Equalizer, Volume, Speed, and Frame 
(complex sounds can consist of several 
linked frames), Sound controls include 
Wave (noise, square, sawtooth, or trian- 
gle), Attack, Decay, Sustain, Release, 
Frequency, Speed, Pulse, Duration, and 
Tie. You use the joystick to create the 
sound, listen to it, modify it, and save it 
to disk. 

Since most arcade games contain 
music, GameMaker includes a Music- 
Maker module. The MusicMaker screen 
includes a keyboard, a staff, selectors 
for notes, channels, and instruments, 
and a music sheet. Those familiar with 
music programs on the Commodore 64 
will find this module, like all the mod- 
ules in GameMaker, quite sophisticated 
and versatile. 

To ease you into creating your own 
games from scratch, GameMaker in- 
cludes several samples for each mod- 
ule. There are plenty of precreated 
scenes, sprites, sounds, and tunes on 
the GameMaker library disk, which you 
can load and examine, change, or copy. 
These not only save time, but also help 
you learn how to use the features of the 
individual modules. By loading a sound 
effect into SoundMaker, for example, 
then twisting the knobs and moving the 
sliders, you can figure out quite easily 
what each command does. If you wish, 
you can create entire games by mixing 
the sprites, sound, music, and scenes al- 
ready provided. 

Once you have a scene, the sprites, 
the sounds, and the music ready to go, 
you put them all together using the Edi- 
tor. The Editor provides the program- 


ming language itself, and is the hardest 
module for nonprogrammers to use, 
Once again, though, GameMaker helps 
out, The manual contains a run- 
through of the various commands and a 
tutorial to get you started. Furthermore, 
the library disk includes several prede- 
signed games (Pitfall and Megamania 
among them) that you can load into the 
Editor and examine. How does Pitfall 
Harry grab the rope and jump over the 
pond? How does the score change? 
Simply load it into the Editor and find 
the appropriate line in the program. 

The heart of the manual is the Ad- 
vanced Game Design section. Here 
Garry Kitchen, GameMaker’s creator, 
explains what to keep in mind when 
designing a game. Here too are listed all 
the commands possible in the Game- 
Maker modules, including explanations 
of the numerous commands in the Edi- 
tor. To create truly excellent games, you 
will need to master much of this sec- 
tion, and doing so is not easy. But you 
need not master them all at once, and 
you can work on individual commands 
as you create your design. 

If you get good enough, and you 
create an arcade game that you feel the 
world will want to play, Activision will 
welcome it as an entry in the Game- 
Maker design contest. The winner re- 
ceives $5000, a paid visit to Activision, 
and, most importantly, Activision will 
publish the game. If you've always felt 
able to design a great game, but never 
had the programming skill to attempt it, 
GameMaker is for you, Like any good 
game, writing it is not easy, but once 
you've done so, the rewards are endless. 

—Neil Randall 
Activision, Inc. 
2350 Bayshore Frontage Road 
Mountain View, CA 94043 
$39.95 
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The Commodore 64’s versatile sound 
chip, SID, has inspired a multitude of 
music software. Like word processors 
and spreadsheets, most full-range soft- 
ware companies offer music packages 
many of which are quite sophisticated, 
with fancy, hi-res screens, and lavishly 
produced manuals. Some even allow 
for considerable creativity in letting you 
program your own tone colors. Nearly 
all assume that the user wants to be a 
tunesmith, to create and arrange his 
own melodies, and perhaps accompany 
them with other melodies or a bass and 
drum line. 

Cantus is different. It’s a semi- 
random improvisation tool instead of a 
composer/arranger. It’s simple, acces- 
sible, interactive power with few “bells 
and whistles,” 

Perhaps the main difference be- 
tween Cantus and other music pro- 
grams is that it was conceived by a 
professional musician as a creative tool 
relevant to contemporary music. (Ryo 
Kawasaki, for Sight and Sound software, 
is the only other professional name that 
comes to mind in 64 music program- 
ming—and his work is unique too, in a 
quite different way.) The conceptual 
work on Cantus (and writing of the 
manual) was done by Michael Riesman, 
musical director and keyboardist of the 
Philip Glass Ensemble (for more on Mi- 
chael Riesman, see ‘Musicians Meet 
Computers” in the May 1986 issue). 
Those who know the music of Philip 
Glass know something of what to ex- 
pect here. Here is a music of controlled 
randomness, a music of process rather 
than result, a music of “doing” rather 
than “done.” 

Cantus is the fruitful collaboration 
of Riesman’s concept and the technical 
prowess of Steven Buchwalter, who 
coded Cantus entirely in the C 
language. 

Besides being easily learned and 
remembered, Cantus derives much of 
its accessibility from the fact that it has 
only one main screen. This screen con- 
tains all the stylistic choices—or 
“patches”—the user makes. (There is 
an easily accessed store of 37 “canned” 
patches as well. You have the choice of 
just sitting back and enjoying them, ex- 
amining them as instructive examples, 
using them as “jumping off places,” or 
ignoring them altogether.) The system 
operates by making choices among the 
options and probability ranges you 
specify. As the texture is performing 
(the only way to describe it), you 
change Y/N options and distributions 
on the fly. 

Some of the choices relate to tone 
color (envelope, waveform, filtering, 
etc.)—of which a considerable range is 
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available (although not all the capabili- 
ties of the SID chip, as the manual im- 
plies). Most, however, are harmony/ 
chord, rhythmic (duration), voice rela- 
tion (texture), and octave options. All 
19 three-note chords (in prototype— 
the program mixes up voice registers or 
inversions itself) are available. So are 
independent, pair, or block textures 
(along with a rhythmic “offset” option 
that gives a strummed or arpeggiated 
effect), choices of duration and rest val- 
ue (relative distributions), and octave 
probabilities, The result is a kind of tex- 
tured music, with the user defining the 
overall parameters of the style, and the 
computer making specific random deci- 
sions within that style. 

Operation is remarkably simple: 
Cursor to the parameter you want to 
define (the cursor automatically jumps 
among active “fields”’), enter a value, 
and press RETURN. LOAD (CTRL-L) 
an alternate ‘musical environment’ 
(texture patch) in four seconds—either 
yours or one included. Start and stop 
with the RUN/STOP key. If you want 
to “see” the actual pitches at any partic- 
ular point (it’s rarely necessary), just 
switch to the alternate screen to see 
blocks jumping up and down on “oc- 
tave lines’ with pitch names above the 
blocks (voices are color-coded). Freeze 
the performance and notation by press- 
ing a function key; resume by releasing 
the key. It’s wonderful to see such inter- 
activity so accessible, easy to learn, and 
well explained in a manual. 

Of course there are a few limita- 
tions, even bugs. Of particular note is 
the difficulty in turning off any of the 
voices. (In fairness it should be noted 
that the harmonic/chordal approach 
implies that all voices should be going 
most of the time, and that all voices 
play different pitches—another textural 
requirement.) The manual suggests set- 
ting unwanted voices to pulse with a 
width of zero. Unfortunately, this 
method gives bothersome clicks. If you 
go to the trouble of specifying envelope 
values A, D, and R to 15, however, the 
clicks will completely disappear. 

It's annoying (and perhaps unin- 
tended) that pressing HOME sends the 
disk drive into an abortive save, and 
that the DELete key takes you to the 
HOME position. Otherwise the pro- 
gramming is notably bug-free. 

Cantus is both educational and lots 
of fun, Like the environment of LOGO, 
it has great possibilities for creative play 
by children. Loading and saving patch- 
es are very fast (files are only four 
blocks each), and Cantus loads with 
Epyx’ FastLoad cartridge in only 35 sec- 
onds (almost two minutes normally). 

An extensive set of Library utilities 


is also included to perform all the disk 
functions normally involved in this sort 
of program. This too helps make Cantus 
easy to use for quick results. There is a 
minimum of technical obstacles. The 
four-page musical glossary of terms is 
most welcome, and the well-organized 
documentation is both succinct and well- 
written. 

It’s worth making a point about the 
manual because this is a “cottage” 
product, home produced and market- 
ed—a beautiful example of what you 
might do yourself, Pages are duplicated 
(single side) on a regular copier and as- 
sembled under a transulcent plastic 
cover with a friction plastic grip. The 
single disk is double-side taped to the 
inside back cover, and an index card 
flap taped over the top so the disk 
won't fall out. Low cost, effective, neat, 
clear, well-organized—a model ‘‘cot- 
tage” product. 

Cantus is a significant and unique 
music package. It’s inviting, involving, 
and contemporary. For creative play, 
process interaction, and music educa- 
tion applications, it’s hard to beat. I 
highly recommend it for participation 
in a unique musical environment, 


—Art Hunkins 
Algo-Rhythm Software 
176 Mineola Blod. 
Mineola, NY 11501 
$39.95 @ 


COMPUTE!'s Gazette is 
looking for utilities, 
games, applications 
educational programs, 
and tutorial articles. If 
you've created a pro- 
gram that you think 
other readers might en- 
joy or find useful, send 
it, on tape or disk to: 


Submissions Reviewer 
COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please enclose an SASE 
if you wish to have the 
materials returned. 
Articles are reviewed 
within four weeks of 
submission. 
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Roger Sliva 


Your computer is a formidable opponent in this 
battle of wits. An excellent strategy game with 
four skill levels. For the 64, Plus/4, and 16. 


Can you outsmart your computer? 
“Slots” is a strategy game which 
challenges you to out-think your 
machine. You and the computer 
take turns dropping tokens into a 
box with eight vertical slots. To 
win, you must get four of your to- 
kens in a row vertically, horizontal- 
ly, or diagonally. Or you can win by 
being first to put a token at the top 
position of any slot in the box. Each 
time you select one of the eight 
rows in which to place a token, it’s 
dropped to the lowest available po- 
sition in that slot. Each slot is then 
filled from bottom to top during 
play. The game is tricky, though: 
What often seems to be a good 
move might be just the stepping 
stone the computer needs to win. 
Slots is written in BASIC, but 
the decision-making process is 
written in machine language, and is 


found in the DATA statements in 
the latter section of the program 
listing. The program runs on the 
Commodore 64, Plus/4, and 16, To 
get started, type in the program 
using “The Automatic Proofread- 
er,” found elsewhere in this issue. 
When you're finished typing, be 
sure to save a copy. To play the 
game, loadit and type RUN. After a 
brief wait, you're asked if you wish 
to go first. Press Y (for yes) or N if 
you'd rather the computer start. 
Going first is not necessarily an 
advantage. 

You're then asked to select a 
playing level, 1-4. The level you 
choose determines the number of 
moves ahead the program looks, At 
level 1, the computer looks only at 
its next move, At level 2, the com- 
puter looks at its next move and 
your next possible move. At level 3, 


it looks one step beyond level 2, 
nd at level 4, another step beyond. 
Each move has a maximum of eight 
possible positions, with each posi- 
tion having eight possible future 
positions. At level 4, the computer 
looks at a maximum of 4,096 possi- 
ble positions. For that reason, level 
4 takes a bit longer (only several 
seconds actually). 

If you have a 128, try adding 
the following lines to speed up the 
program in 64 mode: 


61 POKE 53296,0 
471 POKE 53296,1 

(The second POKE speeds up 
the 128’s 8502 chip to 2 MHz, and 
the first POKE resets it to 1 MHz, 
the normal processing speed of the 
64. If you include these POKEs, the 
initial screen fills with garbage for 
about 20 seconds while the charac- 
ters are being redefined. This is 
normal.) 

After entering the play level, 
the game screen appears. Just type 
the slot number, 1-8, when 
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prompted. If you decide to change 
levels in the middle of a game, 
press L when you're prompted fora 
slot number. After each of your 
moves, the computer chooses its 
move and places a token. 


The Computer’s Intelligence 
The primary thinking routine in 
Slots is a recursive procedure—that 
is, a procedure that calls itself as a 
subroutine. 100 X=1: GOSUB 100 
is an example of a recursive proce- 
dure in BASIC. This particular pro- 
gram does nothing but crash your 
computer, but it offers an example 
of a function calling itself. A mean- 
ingful recursive procedure needs a 
test that stops the subroutine calls, 
and begins returning from the sub- 
routine calls. 


Slots runs faster and uses less 
memory by using a recursive func- 
tion, At each possible move posi- 
tion, the program looks at the eight 
positions that could occur on the 
next move. Each one of the eight 
positions can be answered by an- 
other eight, and so on, Slots needs 
only one routine that loops eight 
times to look at each slot. In each 


SX \ 
The 64 has just defeated another oppo- 
nent. Notice the four tokens running 
diagonally beginning in slot 4. 


loop, the routine calls itself recur- 
sively. If the number of the play 
level you chose has been reached, 
the subroutine calls are stopped. 
The looping then continues. When 
eight loops have occurred at any 
level, the returning from the sub- 
routine calls begins. 

Let’s say you choose to play 
level 2, which means the recursion 
goes two levels deep. To analyze 
the board, the computer calls the 
“what if” routine eight times: What 
if | played in position 1? What if I 
played position 2? and so on up to 
slot number 8, But while it’s in the 
middle of a what if, the routine calls 


itself. It checks a position by asking 
what if the computer chooses slot 1 
and the player also chooses 1; what 
if the computer plays 1 and player 
picks 2; and so on. When it’s done 
considering all eight possible 
moves and the eight responses to 
each move (64 positions in all), it 
compares each for the best chances 
of winning. It then returns from the 
machine language routine. 

Returns from the recursive 
calls also occur when a win is im- 
pending. If you play at level 4, 
you'll see that the program does not 
take any time to think when you're 
about to win. This is sometimes 
called mini-maxing or tree-pruning. 
It prevents the program from wast- 
ing time looking at future moves 
that have no relevance to the deci- 
sion process. 

Slots does not make your com- 
puter a genius, and sometimes it 
plays a better game at lower lev- 
els—but this may come as a result 
of its not thinking as much. A ran- 
dom function is included in the pro- 
gram to prevent it from making the 
exact moves every time. 

See program listing on page 100. @ 


Guard Against Life’s 
Little Accidents 
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With MICRO DOCTOR, Care, Troubleshooting 
and Simple Repair for your Commodore 64® by 
Hoyt Hilsman, you can prevent 90% of common 
microcomputer maintenance ills and treat 50% 
of your problems using household tools. 


Micro Doctor 
The First Name in Computer Health 
Little, Brown and Company 
Boston, MA 02108 
$13.95 
Gag ISBN 36413 


To order call 
800-343-9204 
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For the Commodore 64 


kyan pascal is the most complete package available for learn- 
ing and using the Pascal language. 
kyan pascal is easy to use, lightning fast, and loaded with fea- 
tures. Isa full Pascal implementation. Itcompiles and runs many 
times faster than other Pascal compilers. 
kyan pascal features: 

*Optimized Machine Code Compiler; 

Built-In Full Screen Text Editor; 

*String-Handling, Chaining, Include File, and Other 

Powerful Extensions; 

*Random Access Files and Full Graphics Support; 

*Built-In Assembler (Allows Full Hardware Control); 

#18-Digit Arithmetic Precision; and, 

«Tutorial Manual with Sample Programs. 
kyan pascal requires 64K of memory anda single disk drive. 
Noadditional hardware is necessary. And, it comeswith kyan's 
MONEY BACK GUARANTEE. ..If not completely satisfied, 
return it within 15 days for a full refund. 
kyan pascal for the C64 >, 

(Add $4 501copy for handling; $12.00 outside North America 

residents add §4.85/copy for sales tax) 

Send Check/Money Order kyan software, Dept. X 
Call: (415) 775-2923 1850 Union St., Ste. 183 
MC/Visa Accepted San Francisco, CA 94123 


BRAND NEW FROM CSM!! 


SNAPSHOT 64 ENHANCEMENT DISK 
A must for every SNAPSHOT 64 owner! 

SNAPSHOT 64 owners, you know it’s the best backup cartridge available. We 
thought the best would be good enough, but you wanted more. Now the SNAPSHOT 
64 ENHANCEMENT DISK gives it to you! The most requested utilities and aids 
are included in this affordable, easy-to-use package. Look at what you get: 
FAST LOADER - Add CSM's own fast loader to your SNAPSHOT 64 backups. 
Loads your backups several times faster! Works with 1541, 1571 and "1541-clone”” 
drives. 
CARTRIDGE MAKER - All the software you need to install your SNAPSHOT'ed 
program on a bank-switch cartridge board. Downloads and runs in seconds! Perfect 
for business programs or your most-used ulllties! All the EPROM supplies you'll 
need are available separately trom CSM 
UPDATED BOOT - Allows SNAPSHOT 64 to handle many new (and some old) 
programs! Automatically included in the’ RAST LOAD and CARTRIDGE MAKER 
options or can be used separately, No need to re-SNAPSHOT your originals! 
INVESTIGATIVE UTILITIES - For the “hacker” type. If you're using SNAPSHOT 
64 to explore program protection or operation, you need these aids. Uncompress 
the main files so you can investigate and modify them, Then recompress the new 
versions and they'll be booted as usual. 
COMPREHENSIVE MANUAL - Covers the ENHANCEMENT DISK utilities plus 
full information on the various SNAPSHOT files. 


All this for only $14.00 plus shipping 


SNAPSHOT 64 


The original cartridge! Takes a ‘snapshot of your original program, saves it to 
disk and adds an autoboot. Your program can be interrupted at almost any point 
and restarted at the exact same point! The fastest, easiest-to-use and most effec- 
tive utility of its kind! Backups do not require the cartridge to run, and are com- 
patible with most fast load cartridges (or s2e ENHANCEMENT DISK above). 


$49.95 plus shipping 


1541 DISK DRIVE ALIGNMENT PROGRAM 
VERSION 2.0 


Still the best! No special tools or knowledge required, just average mechanical 
ability. See the review in the Oct. 1984 Compute’s Gazette and all the other top 
magazines. 


Still only $44.95 plus shipping 


EPROM PROGRAMMERS HANDBOOK 


‘A must if you're programming EPROMs! Covers the important concepts in a 
readable style. The accompanying diskette includes many useful utilities. Put up 
to 10 programs on a single cartridge, with a menu added automatically! Modify 
the KERNAL and DOS ROMs! Much more! 


Book plus diskette for only $32.95 plus shipping 


THE SOURCE GENERATOR 


A SYMBOLIC DISASSEMBLER that turns ML into assembly language, complete 
with labels, Choice of PAL, CBM or MAE formats. Disassemble 6502, 6511 (MSD), 
65C02 or undocumented opcodes. Fast and easy to use 


$34.95 plus shipping 


PROGRAM PROTECTION MANUAL, 
VOLUMES | & II 


Vol, lis for the beginner and covers bad blocks, disk directories and BASIC, Volume 
IVis more advanced - over 265 pages on encryption, GCR code, nonstandard for- 
mats, advanced cartridges and much, much more! 


Vol. 1 - $29.95, Vol. 1 - $34.95 
Disk included with each. 


CARTRIDGE BACKER II 


New auto-parameter system archives more programs than ever, Backs up car- 
{ridge to disk and adds autoboot, Backups run from disk - NO special hardware 
required. 


$54.95 plus shipping. 
Update for prior purchaser only $14.00 


CSM Software, Inc. 


P.O. Box 563, Crown Point, IN 46307 
(219) 663-4335 


VISA AND MASTERCARD ACCEPTED DEALER INQUIRIES INVITED. 


TRY THIS ON 
FOR SIZE. 


At the United States Space Camp, 
you'll have to. It’s required attire, you see, in 
your training for a Space Shuttle mission. 
You'll be piloting a shuttle simulator, working 
under weightless conditions, doing what most 
people only see on the six o'clock news. 


Our space station construction software, can 
get you to Space Camp for the time of your 
life. You'll need to get your hands on it 
and build us your best station. 


We'd like to see you in this suit. Soon. See your 
favorite software dealer for a Space Camp 
Scholarship booklet and construction 
guidelines, or write to us at 
the address below. 


HesWare. 
aE ry 


P.O. Box 631-SCS 
So. San Francisco, CA 9408 
(415) 871-0570 


As the sole trained pilot for the 
army's top-secret “Chopper 1,” an 
attack helicopter equipped with a 
powerful pulse laser, you're sent to 
defend your city when it’s suddenly 
invaded by aliens. The city’s other 
defense is a glowing force field 
which hovers above the skyline. 
The alien’s spaceship passes back 
and forth over the city while con- 
tinually dropping bombs which 
gradually blast their way through 
the force field and, eventually, into 
the city itself. The bombs will also 
destroy your chopper if contact is 
made. You've been sent to destroy 
the bombs with Chopper 1’s laser 
before they reach the city. The 
alien’s spacecraft is made of an in- 
destructible alien alloy, and it’s in- 
vulnerable to your laser blasts. It 
will, however, destroy you if you 
get in its path. 

You control Chopper 1 with a 
joystick (in port 2). You can move 
the helicopter left, right, up, or 
down with the joystick—and you 
can fire the laser by pressing the fire 
button. 


Save The City 

The spaceship is armed with 100 
bombs. Should any part of the city 
remain standing when its supply of 
bombs is exhausted, you'll receive a 
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Only quick maneuvering and accurate firing can 
save the day in this fast-action, arcade-style game. 
For the Commodore 64. A joystick is required. 


poussins ONTO 
pi ES Mi 


vn 
The player has just destroyed a bomb. 
Notice that the alien spacecraft has just 
released two more above Chopper 1. 


bonus which will be added to your 
score, The greater the amount of 
the city remaining, the higher the 
bonus. You'll then move on to save 
another city and to a higher skill 
level where the bombs drop faster. 
You receive 10 points for each 
bomb you destroy. 

Should a city be totally de- 
stroyed before the alien’s bomb 
supply is exhausted, no bonus will 
be awarded, and you're given the 
chance to save another city at the 
same skill level. 

When you see the message 
GAME OVER, you can select the 
level at which you wish to begin by 
pushing the joystick up or down to 
change the skill level. Press the fire 
button to start the game. 


1 


The army has a supply of four 
Chopper 1 helicopters, the first 
three of which are equipped with 
emergency escape parachutes. 
Should the aliens destroy your heli- 
copter, the escape parachute will 
automatically activate, and you'll 
land safely, If the fourth Chopper 1 
is destroyed, all is lost. The game 
ends. You'll find it difficult to main- 
tain your choppers for very long at 
the higher skill levels. 


Typing It In 

Since “Chopper 1” is written en- 
tirely in machine language, you'll 
need to enter the program with 
“MLX,” found elsewhere in this is- 
sue, Load and run MLX, and when 
prompted for starting and ending 
addresses, enter the following: 
Starting Address: 0801 

Ending Address: 175F 

Be sure to save a copy when 
you've finished typing it in. To play 
the game, load it (LOAD “‘file- 
name’’,8) and type RUN. Be sure to 
have a joystick in port 2. Press the 
fire button to begin play. 

If you'd rather not type in the 
program, send a blank disk, $3, a 
self-addressed mailer, and 50 cents 
to cover postage (no U.S. stamps, 
please) to: 

Mike Sedore 

27 Melbourne St. 
Hamilton, Ontario, Canada 
L8P 2A5 


See program listing on page 95.  @ 


| Children can enter a swashbuckling world of 


5 > 
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pirates as they attempt to find Treasure Island 
and the treasure chest in this miniadventure. 
While providing entertainment and challenge, it 
also sharpens map-reading and direction skills. 


For the Commodore 64. 


In “Pirate Cove,’ your child plays 
the role of a buccaneer who's found 
amap showing the locations of ten 
islands, Starting from Pirate Cove, 
he or she must nayigate around the 
territory trying to find Treasure 
Island. Along the way, the child 
may find Spice Island, Mermaid’s 
Lagoon, or Skeleton Island, among 
others. Also, the child may search 
sunken ships or fight the Sea Mon- 
ster. The game is over when Trea- 
sure Island has been found and the 
treasure chest successfully opened. 


Playing the game is quite sim- 
ple. In fact, older children may be 
able to play the game without in- 
structions, After typing in the pro- 
gram, save a copy. To play, load the 
program and type RUN. 

At each land location on the 
map you're offered five options. 
Two of these options involve 
searching the area. The third choice 
is to read the map, the fourth to sail 
on, and the last choice to list what 
you have in your possession (in- 
ventory). Make your selection by 


pressing the CRSR UP key to move 
the red bar to your choice, and then 
pressing the RETURN key. If you 
choose to sail on, the program asks 
which direction you want to go 
(north, south, east, or west). Again, 
use the red bar to make this choice, 

If the Read Map option is cho- 
sen, the screen displays the naviga- 
tional map. Islands are indicated by 
green, water by blue, and your cur- 
rent location by yellow. Choosing 
the List Inventory option allows 
you to see what items you've gath- 
ered on your journey. (A few of 
these can be quite helpful.) When 
you're sailing (the High Seas op- 
tion), you may choose either to read 
the map or to sail on. 

Each time the program is run, 
the location of the islands changes 
so that the game may be played 
often. More advanced players might 
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CURRENT LOCATION: PIRATE COVE 
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Children can easily play “Pirate Cove” 
with simple menu selections. 


MaUIGATION MHP. 


EPRESS ANY KEY TO CONTINUES 


Reading the map shows the location of 
your ship and the islands. The location 
of the islands is different each time the 
game is played. 


want to play the game without 
reading the map, charting their way 
on paper instead. 

Programmers might note that 
sprites (expanded horizontally) 
have been used to form a highlight- 
ing bar for input of choices. In writ- 
ing a program for children, it’s 
essential to make the input for them 
as easy and foolproof as possible. 
This method seemed a good choice 
despite making the program a bit 
longer. I’ve also used sprites (ex- 
panded both horizontally and verti- 
cally) for the various pictures. 

See program listing on page 98. @ 


COMPUTE"s 
GAZETTE 
TOLL FREE 
Subscription 


Order Line 
1-800-247-5470 
In IA 
1-800-532-1272 


All programs listed in 
this magazine are available 
on the GAZETTE Disk. 
See elsewhere in 
this issue for details. 


ES 
Dallas Direct 
The Most Competitive Prices on 


COMMODORE: 


Commodore Products 


C128 Computer S$ Call 
C1571 Disk Drive. .$ Call 
C1902 RGB Monitor . S$ Call 
MPS 1000 Printer .. pod Call 
C1700 128K RAM .$ Call 
C1750 512K RAM . ..$ Call 
Commodore 128 Software 

CMS Accounting . . $ 139.95 
SuperBase 128. . oS 64.95 
SuperScript 128. $ 54.95 
Epyx Multiplan... . $ 42.95 
Fleet System 2. oS 44.95 
Fleet System 3... $ 49.95 
PaperBack Writer...........$ 34.95 
PaperBack Planner .... $ 34.95 
PaperBack Filer . S$ 34.95 
Freeze Frame ...... vo $ 39.95 
Fast Load Cartridge . $ 23.00 
Vorpal Utility Kit..... $23.00 
Matrix (C128 Utility) . .$ 49.95 
Bobs Term Pro 128... $ 59.95 


Commodore 128/64 Accessories 
Anchor 6480 Modem . (New)$ 149.95 
PPI SuperSketch . . «eS 19.95 


ORDERING INFORMATION: 

Order TOLL FREE 1-800-233-6081 
Others Call (214) 247-7373 
Visa/Master Card — C.0.D, or 
Prepaid Orders Accepted 

Same Day Shipments « All Products 
Shipped F.0.B. Dallas, Texas 


Call and Order Today! 


PPI Joystick..... $ 8.95 
DSI-PPI Interface S$ 39.95 
Tymac Parallel Interface $ 59.95 
C128 Programmers Ref. 

GUIDE Re some eeetanara S$ 19.95 
Fuji 5%”DS/DD Diskettes (Bx)$ 12.95 
Fuji 32"DS/DD Diskettes (Bx) $ 26.95 
Printer Sale 
Transtar 120. $ 219.95 
Transtar 130. $ 294.95 
Cardco LO-1.... S$ 184.95 
CBM 6400 (40 cps) .$ 349.95 
Star SG-100 ...$ 229.95 
Star SG-15.... -S 364.95 
Star NX-10 (New) $ 249.95 
Citizen MSP-10 (160 cps) ...$ Call 
Citizen MSP-15 (160 cps) ...$ Gall 


New Computers from Commodore 
PC10 & PC20 


(IBM PC Compatibles) .....$ Call 
C-64C NEW Low Profile 64 
with GEOS .. . -.$ Call 
15416 NEW Low Profile 
1541 Call 


1-800-233-6081 


DALLAS DIRECT 


“We used to work for Commodore 
now we work for you!” 
3208 Beltline Road Ste. 210 
Dallas, Texas 75234 


Address Cataloger 


Kevin Mykytyn 


There are other address file programs for the 
Commodore 64, but we haven’t seen one this fast, 
versatile, and easy to use. “Address Cataloger” 
offers a number of useful features, including a 
directory, string search and multiple search, 
alphabetical sort, and several printout formats. 
Menu operations make it especially easy to 


manage. 


“Address Cataloger’’ is a special- 
ized database designed to maintain 
an up-to-date file of names, ad- 
dresses, telephone numbers, and 
any special notes you may want to 
add for each entry. Written for the 
Commodore 64, it includes a num- 
ber of useful features not frequently 
found in programs of this kind: a 
view of the disk directory, an in- 
stant search for any group of char- 
acters, alphabetical sorting, and a 
printer option with your choice of 
three information formats, And it's 
written entirely in machine lan- 
guage—so all operations are ex- 
tremely fast. 


Typing It In 

To enter the program, you'll need 
“MLX,” the machine language en- 
try program elsewhere in this issue. 
Be sure you read and understand 
the instructions for MLX before you 
begin entering the data for Address 
Cataloger. When you first run MLX, 
you're asked for the starting and 
ending addresses. The correct val- 
ues are: 


Starting Address: 0301 
Ending Address: 1458 


Next, begin entering the data for 
Address Cataloger. When you've 
finished typing it in, be sure to use 
the MLX Save option to make at 


least one copy of the program. To 
use Address Cataloger, simply load 
it and type RUN as you would fora 
BASIC program. 


The Menu 
When you run Address Cataloger, a 
menu appears: 

LOAD DATA 

SAVE DATA 

DIRECTORY 

VIEW DATA 

SEARCH DATA 

ALPHABETIZE 

PRINT DATA 

QUIT 

Ared highlighting bar appears 

over the first choice, LOAD DATA. 
To make a selection, use the up/ 
down cursor key to move the bar to 
one of the items and press RE- 
TURN. Let's look at each of the 
menu choices and see how to use 
them. 


LOAD DATA: Use this option to 
load a previously saved address 
file. (If you're using disk, it’s a good 
idea to save your files on the same 
disk as Address Cataloger—you'll 
be able to check the filenames by 
selecting DIRECTORY, the third 
choice on the menu.) After pressing 
RETURN, you're prompted to press 
T for tape or D for disk. You're then 
prompted to enter a filename—up 
to 12 characters are accepted. Disk 


users may use the wildcard (*) con- 
vention for filenames; KIW* will 
load the first file beginning, with the 
letters KIW, for example, whether 
it's KIWANIS or KIWIFRUIT. If you 
wish to abort the load, just press 
RETURN without entering a file- 
name—you’re automatically re- 
turned to the menu. 

SAVE DATA: After you've en- 
tered data and want to save it, cur- 
sor to this item on the menu. The 
procedure is identical to LOAD 
DATA, described above. If you're 
saving a large file, make sure you 
have enough room on the disk or 
tape. Address Cataloger allows a 
maximum of 230 records per file. 
(Disk users should note that 230 re- 
cords will use 182 blocks of disk 
space.) If you save a file to disk with 
the same name as a previously saved 
file, the new file will replace the old 
one. 

DIRECTORY: This option is for 
disk users only. When you press 
RETURN, the names of files created 
and saved by Address Cataloger are 
displayed; unrelated filenames are 
not displayed. If a large number of 
filenames appears and begins scroll- 
ing, you can pause the list by press- 
ing the SHIFT or CTRL keys. 
VIEW DATA: This puts you in the 
data entry and editing section of the 
program. After pressing RETURN, 
a screen appears: 


rt 
LOST AAC: RMR 
FIRST HONE: RRMA 
SPOUSE: RRRAMRROBRNRRANAR 


OOF: AAT 
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MICHAEL SANTORO 

LISA 

488 CRESTWOOD DRIVE 
MERCERVILLE, PA 

19027 

CHRISTMAS CARD/ BIRTHDAY! JULY 12 
CHILDREN! CHRIS AND DANNY 


215-555-0719 


MICHAEL SANTORO 
LIsA 

483 CRESTWOOD DRIVE 
MERCERVILLE, PA 
18027 


215-555-0719 


MICHAEL SANTORO 
488 CRESTWOOD DRIVE 
MERCERVILLE, PA 
19027 


prints a name and address only. 


Notice the record number dis- 
played in the upper left corner of 
the screen, There are 18 key combi- 
nations you can use for a variety of 
editing functions: 


CTRL-A. Abort. If you're in 
the process of editing a record and 
decide to keep the original data, 
CTRL-A (the CTRL key and A 
pressed simultaneously) aborts the 
current editing changes and re- 
stores the data most recently saved 
for that record. 

CTRL-D. Delete. This deletes 
the record currently displayed and 
numerically adjusts all subsequent 
records. For example, if you delete 
record 15, record 16 becomes re- 
cord 15, 17 becomes 16, and so on. 

CTRL-I. Insert. This moves 
the displayed record and all subse- 
quent records up one (15 becomes 
16, and so on) so you can insert a 
new record—for example, Morris 
between Miller and Muller. The In- 
sert function will not work if the file 
is full (if it already contains 230 
records), 

CTRL-F. Find. This option can 
be used only after SEARCH DATA 
is selected from the menu. It dis- 
plays the next record that matches 
the search string (see SEARCH 
DATA below). 

CTRL-P. Print. This option 
can be used only after PRINT 
DATA is selected from the menu, It 
prints the displayed record in the 
selected format (see PRINT DATA). 

SHIFT-+. Next Record. By 
pressing the SHIFT and plus-sign 
(+) keys, the current record is 
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Three printing formats are available with “Address Cataloger”: The first includes all 
information (name, address, phone, and two lines of extra information), the second 
prints all data except the extra information, and the third format, for address labels, 


stored in memory and the next re- 
cord is displayed. 

SHIFT-—. Previous Record. 
The SHIFT and minus-sign (—) key 
combination enters the current re- 
cord into memory and displays the 
previous record. 

Commodore-+ or Commo- 
dore-—. Skip Ten Records. Press 
the Commodore key and the + or 
— key to skip ahead or back ten re- 
cords. For example, if you're on re- 
cord 36, Commodore-+ will display 
record 46, In the same situation, 
Commodore-— will display record 
26. 

DEL. Backspace. Press the DE- 
Lete key to erase the character to 
the left of the cursor. 

+, Delete. The left-arrow key 
(the upper left key on your key- 
board) moves all characters to the 
right of the cursor one space to the 
left. 

INST. Insert. This key (SHIFT- 
INST/DEL) moves all characters 
under and to the right of the cursor 
one space to the right. 


RETURN. Next Field. Press 
RETURN to move the cursor to the 
beginning of the next field. 


CRSR-DOWN. Next Field. 
Same as RETURN. 

CRSR-UP Previous Field. This 
key moves the cursor to the begin- 
ning of the previous field. 

RUN/STOP. Return to Menu. 
This key enters the currently dis- 
played record into memory and 
then displays the menu. (If 
SEARCH DATA was selected from 


the menu, RUN/STOP activates 
the search—see SEARCH DATA 
below.) 

HOME. Clear Field. This key 
clears the field containing the 
cursor, 

CLR/HOME. Clear Record. 
This key (SHIFT-CLR/HOME) 
erases all data in the record dis- 
played. (It can be restored immedi- 
ately with CTRL-A.) 


SEARCH DATA: When you 
choose to search through the file, 
the data entry screen appears, as 
previously shown, Enter any com- 
bination of characters—a search 
string—in any field. Just type in the 
string you want to search for in the 
appropriate field and press the 
RUN/STOP key. (For example, a 
MAS in the Last Name field will 
find THOMAS, a 414 in the Phone 
field will find anyone in the 414 
calling area, or CHRISTMAS in the 
Extra field will find anyone you 
wish to include on your Christmas 
card list—if you've set up your file 
for this purpose.) 

When a match is found, the re- 
cord is displayed. If you wish, you 
can edit any part of the record. To 
find additional matches, press 
CTRL-F, If no more matches are 
found, you'll notice that the record 
number has not changed. You can 
do multiple searches also—for ex- 
ample, SMITH, LOS ANGELES in 
their respective fields. 

If no matches are found, the 
screen displays NO MATCH and 
PRESS ANY KEY, The menu reap- 
pears after pressing a key. 


ALPHABETIZE: This option sorts 
all records alphabetically by last 
name. In the case of identical last 
names, the sort will look at first 
names and alphabetize according- 
ly. For example, if you have five 
Smiths in your address file, they'll 
be alphabetized under Smith by first 
name: Al, Dorothy, Mike, Richard, 
and Walter. 

You can also use this option to 
clean up your file from time to time. 
After you've used the file for a 
while, you're likely to have some 
blank records. By alphabetizing, 
you'll condense your file—the pro- 
gram removes all blank records and 
renumbers existing files, thus sav- 
ing space. (It’s a good idea to avoid 
blank records when entering re- 
cords—a lot of these in your file will 


slow down program operation.) 
PRINT DATA: Before choosing 
any options from this menu item, 
be sure your printer is turned on 
and the paper properly aligned. 
There are several choices to make 
before printing out data from an ad- 
dress file. After selecting this op- 
tion, a small menu appears: 

ALL INFORMATION 

PHONE LIST 

ADDRESS LABELS 

MAIN MENU 

The first choice, All Infor- 
mation, prints all the data in a file. 
The Phone List selection prints all 
data except the information in the 
Extra field. Address Labels prints 
all data in the Name, Address, City, 
State, and Zip fields. When printing 
address labels, you can adjust the 
printer linefeed by typing POKE 
5176, x, where x is the number of 
linefeeds you want. As written, the 
program uses six linefeeds. If you 
wish to make a permanent adjust- 
ment, load the program, type this 
POKE in immediate mode, and re- 
save the program with a new file- 
name. The final choice, Main 
Menu, provides an easy way to exit 
from the print option, 

After selecting one of the three 
printing formats, another menu is 
displayed: 

SELECTED 
ALL 
MAIN MENU 

The first choice, Selected, al- 
lows you to choose which record or 
records will be printed, You're pre- 
sented with the data entry screen 
(as in the SEARCH DATA option). 
Enter a search string in the appro- 
priate field(s), and press RUN/ 
STOP. All records that match are 
then printed out. If you wish to stop 
the printing after any record, press 
RUN/STOP. 

If the All option is selected, all 
records are printed out. Again, 
RUN/STOP will halt the procedure. 

If you've selected a printing 
format (All Information, Phone 
List, or Address Labels), and then 
go to the main menu (ignoring Se- 
lected or All), you can then print 
out individual records from within 
the View Data option by pressing 
CTRL-P. 


QUIT: This option exits the pro- 
gram and returns you to BASIC. 


See program listing on page 93, @ 


Expandable 


Graphics Dump 


For The 
Commodore 1526 
And 
MPS-802 Printers 


Fred Solmer 


Here’s a quick and easy way to get standard- or 
double-sized high-resolution printouts. The pro- 
gram works with Print Shop, Doodle, Koala Pad, 
and other hi-res screens. Versions for the 64, 128, 


and Plus/4. 


The April 1985 issue of COMPUTE!'s 
GAZETTE contained a useful program 
titled “1526 Hi-Res Screen Dump,” 
which allowed 64 owners to print 
out high-resolution screens on Com- 
modore’s 1526 or MPS-802 print- 
ers—models that aren’t normally 
capable of high-resolution graphics 
printing. ‘‘Expandable Graphics 
Dump,” for the Commodore 1526 
and MPS-802 printers only, goes a 
few steps beyond. It provides for col- 
umn placement of the normal screen 
dump, allowing it to be printed out 
anywhere from column 0-40, Also, a 
blowup option is included. With a 
single keypress, you can get a print: 
out twice the size (horizontally and 
vertically) of the normal one. Two hi- 
res screens could be combined into 
an 842” X 11” “poster.” 
Expandable Graphics Dump 


works with almost any hi-res screen, 
The 64 version prints graphics 
screens created with the Print Shop 
(“Screen Magic” pictures only), Doo- 
dle, and the Koala Pad. In fact, it’s 
compatible with almost any software 
designed to make hi-res screens. 


A Simple Procedure 

After typing in the version for your 
computer (Program 1 for the 64, Pro- 
gram 2 for the 128 or Plus/4), be sure 
to save a copy. Be especially careful 
when typing the numbers in the 
DATA statements. (It’s recommend- 
ed that you use “‘The Automatic 
Proofreader” to assist you in typing 
the program correctly.) 

Before getting started, be sure 
your printer is turned on. If you own 
a 64, first load your hi-res screen as if 
it were a machine language program: 
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Three Hi-Res Printouts: 


Double-sized printout of barnyard animals created with the Koala Pad (the 
striped lines in this picture are a side effect of multicolor mode). 
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LOAD“ screenname’’,8,1. You proba- 
bly won't be able to see it, but it has 
been loaded into memory. Then type 
NEW. Next, load Expandable 
Graphics Dump, and type RUN. The 
screen prompts make it very easy to 
use. In the 64 version, you're first 
asked if the hi-res screen was created 
by Print Shop. After you press the ap- 
propriate key, you're asked to choose 
a normal size or enlarged, double- 
size printout. After making this selec- 
tion, you're asked for a “space-over” 
value, 0-40. A computer screen is 40 
columns wide, but the printer has 80 
columns. The space-over number 
controls the number of spaces be- 
tween the left margin and the printed 
picture. For example, if you wish 
your hi-res screen to be printed at the 
left margin, choose 0. To center it on 
the page, enter a value of 20. 

On the 128 and Plus/4, you 
may load Expandable Graphics 
Dump first. Then use the built-in 
graphics commands to create a pic- 
ture in GRAPHIC 1 mode. When 
you're satisfied with the result, load 
Expandable Graphics Dump (if you 
haven't already done so) and run it. 
In this version, you're asked to 
choose a “1:1” (normal size) or blow- 
up printout, and then a space-over 
value, as described above. (The com- 
mercial software mentioned above— 
Print Shop, for example—is written 
for the 64. Commodore 128 and 
Plus/4 versions of these products are 
not available at this writing.) On 
these two machines, you can draw a 
picture using the built-in graphics 
commands, exit to the text screen 
(with GRAPHIC 0), and run the pro- 
gram, It’s not necessary to save the 
picture to disk and load it back into 
memory. 

Note that the 64 version of Ex- 
pandable Graphics Dump is written 
for hi-res screens which can be saved 
as disk files. This restriction means it 
can’t be used to print the greeting 
cards from Print Shop, although it 
works well with the “Screen Magic’’ 
portion of the program. Also, Ex- 
pandable Graphics Dump handles 
monochrome hi-res screens some- 
what better than multicolor screens. 
If you look closely at the Koala Pad 
illustration, you'll see that some col- 
ors have been translated to stripes. 
This is a result of the way the addi- 
tional colors are stored in the hi-res 
bitmap. 

See program listings on page 106. @ 


machine language 


looginners 


Richard Mansfield 
Senior Editor 


Last month we created a simple 
BASIC action game that illustrates 
many of the essential techniques 
used to write “arcade style” games. 
Let’s finish describing how it works 
and then translate it into machine 
language (ML). 


PRINT" {CLR}" 

PLR = 1654:ENY = 1634:X 
= -1:KE = 212:REM USE 
{SPACE}KE = 203 FOR 64 
FOR I= 1 TO 24 

XD 138 GOSUB 1980:GOSUB 2000 
AS 148 NEXT I 

KA 158 X = NOT X 

CP 168 GOTO 128 

HA 1666 POKE PLR, 32 

BK 1616 IF PEEK(KE)=47 AND PLR 
<1984 THEN PLR = PLR+4 
a 


sc 100 
EM 118 


cG 128 


DH 1626 IF PEEK(KE)=44 AND PLR 
21054 THEN PLR = PLR-4 
8 

FP 1030 POKEPLR, 219:IFPEEK(PLR 
-2@)=209THENP RINTCHRS ( 
7) :COUNT=COUNT+1 :PRINT 
" {HOME }";CO 

DA 1646 RETURN 

CC 2606 POKE ENY,32 

BK 2616 IF X THEN ENY = ENY+46 
1GOTO 2030 

RR 2620 ENY = ENY-40 

AH 2030 POKE ENY, 209 

JB 2040 RETURN 


Line 130 illustrates object 
weaving. The elements of an action 
game—all the objects from the 
alien mothership to the human’s at- 
tack vessel—must be acting in con- 
cert, or the visual effects will appear 
jerky or worse, In this example 
game, one obvious design consider- 
ation is that each object should take 
about the same amount of time to 
compute. The subroutines are ac- 
cessed so that the player object 
moves just one space on the screen 
and then waits until the enemy ob- 
ject takes its turn. 

Finally, when the enemy has 
moved 24 times, it’s necessary to 
reverse its direction. To do this, the 
toggle variable X is switched to its 
opposite state. In BASIC, a variable 
is true if it has any value other than 


O and false if 0. Also, the NOT oper- 
ator in BASIC can switch a variable 
between —1 and 0 each time it is 
used; it will toggle the variable, 
which is exactly what we need to do 
when signaling whether to move 
our alien up or down the screen, In 
the alien-moving subroutine (lines 
2000-) we add 40 (one screen line) 
and thus move the alien downward 
if X is true (— 1). The BASIC expres- 
sion IF X means “‘if X does not equal 
zero.” Conversely, the toggle vari- 
able causes the program to subtract 
40, moving the alien up the screen, 
whenever X is false (0). 


The Player Subroutine 

The player- and enemy-moving 
subroutines are similar in structure, 
but the player routine does four ex- 
tra things. It must check for key- 
presses, look for boundary 
conditions (is the player moving off 
the screen?), update and display the 
score, and make noises during any 
“hits.” In a more complex game, 
these four jobs might well lead to a 
time-hogging effect: The time spent 
in the player routine becomes sig- 
nificantly greater than the time 
spent processing the other objects 
in the game. It doesn’t happen here, 
but if it ever should, the program- 
mer would want to balance things 
out by, perhaps, inserting the task 
of scorekeeping into the enemy- 
moving routine, assigning audio ef- 
fects to another subroutine, score 
display to yet another, and so forth. 
The idea is to spread the work 
around so that nothing becomes lop- 
sided and interferes with the flow 
of the game. 

The first thing we do in the 
player subroutine is blank out the 
player character by placing a 32 
(blank) into the player’s current 
screen location. Then we check the 
keyboard by PEEKing the “last key 
pressed” location. If it’s a 47, then 
the player has depressed the < key 
to move the player down the screen. 
We discern that the player isn’t go- 


Turning A BASIC Arcade Game 


Into Machine Language 


ing off the bottom of the screen, 
and then we add 40 to the player- 
position variable (PLR) if the 
screen-bottom boundary hasn’t 
been violated. 

On the other hand, if the play- 
er tries to move up using the > key, 
we make a similar boundary check 
first and then ‘subtract 40 from his 
position. Line 130 POKEs the play- 
er character into whatever happens 
to be his current position. Then we 
look over to the left 20 spaces and 
see if the enemy is located there. If 
so, the player has managed to line 
himself up with the enemy and gets 
a point added to his score (that’s the 
goal of the game: keep parallel to 
the enemy). PRINTing CHR$(7) 
causes a sound on the 128; making 
noise on the 64 is slightly more 
complex, so there’s no collision 
sound in this program for that com- 
puter. Finally, the cursor is sent to 
the HOME position and we print 
the current score and return to the 
main loop. 

The enemy subroutine also 
starts off by blanking the character 
and, based on the value of the tog- 
gle variable X, the enemy is moved 
up or down as appropriate. 


Same Program, 100 

Times Faster 

Now that we’ve dissected the 
BASIC version, here’s how it would 
translate into ML. We follow the 
structure of the BASIC version fair- 
ly closely: Matching line numbers 
indicate that the same task is being 
accomplished in both versions. 
There are some extra lines in the 
ML version because individual pro- 
gramming commands in ML are 
usually more particular than BASIC 
commands. PRINT “HELLO” in 
BASIC is broken down into discrete 
steps in ML: LDA #’H:JSR $FFD2: 
LDA #EJSR $FFD2:LDA #'L...and 
so forth. Each letter of a word is 
separately sent to the screen. It’s 
100 times faster than BASIC when 
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Great Software for Jnder $770 


Now is your chance to build your software library at a very reasonable ci 
software for your Commodore or Apple computer. 


education titles. 


Save $1.00 on a 10-pack of DS/DD Blank Diskettes with any merchandise order over $10.00. 


For the Commodore 64/128 


Entertainment Series 
nory Quest 

ky Fighters 

‘Atomic Challenger 

4 Professional Gambler 
jurvival Instinet 
de Action 

-7 Adventure Master 


8 Home and Business rd File: 
0 Home Expense Manager 

0 Home Finance Organizer 1 

1 Home Finance Organizer 2 

2 Home Income Manager 

C43 Home Money Manager 

C-44 Home Property Manager 
C-46 Personal File Keeper 


CB A PACALIPS NOW C-47 Personal Investment Manager 
© 9 Bits, Pieces and Clues C-48 Family Tree 

ClO tiara G C-49 Electronic Scheduler 
C11 Board G C-50 Pro Financial Organizer 
C-12 Chess Cl C-51 Recipe Box 

¢ ry Corne C5 x Record Organizer 

c npire Builder ss i 

C-15 Just Games (With a Twist!) Education Series 

¢c a & Air Adventures C-53 Number Builder 

c jadness! C54 Number Chaser 

Cc 1, Peg Out (The Cribbage Game) C-55 Hide & Seek 


ir Trek Evolution C-56 Picture This 


Trivia Quest C57 Let’s Count 


Open- C-58 Time Trucker 
Golfing Royal St, George's C-59 Faney Face 

2 Aliv C-60 Math Manor 

3 Bulge—Battle for Antwerp C61 Typing Tutor 


6-62 Speed Reader 

Electric Book Co. 

Education Series 

€-63 Why? 

C-64 When? 

C-65 The Three Bears 
Gingerbread Man 

Baby Animals 

€-68 Hoppy the Curious Kangaroo 
C-69 Wild Animals 

€-70'Tom Thumb 

C-71 I Was a Second Grade Werewolf 
©-72 Tough Eddie 


4 Wizard & the Princess 
5 Ulysses & the Golden Fleece 


Home Management 
C0Vital Data Keeper 


¥ e manager 
5 My 64—-A Computer Tutor 
36 Commodore 64 Utilities 

7 Financial Analyzers 


Plus these Super Accessories 


© Universal Blank Diskettes (for Apple or Commodore) compatible 
with any disk drive, Double-notched, DS/DD disks give 
sinule sided users Hricethe storage at thesame great price! Box of 
99. Blank Diskettes: 10( rtified, DS/DD, Box of 10: $8.50. 
for Commodore 64/128 
®@ ShareData 300C™ 300 
Baud Modem: Autodial, 
‘autoanswer, includes ter 
minal software: $32.95, 
© Utility. Cartridge: : 
tions: $19.95 
© Warp Drive Cartridge: Fast 
er loading plus more fune- 
tions for more efficient use 
‘of your computer: $19! 
CALL TOLL-FREE 
CREDIT CARD ORDERS ONLY 
1-800-257-9411 
In Minnesota CALL 
(12) 829-1911 


=) 


Firstline Software, Inc. 
P.O, Box 5297 
Hopkins, MN 55343-2297 


Please lis 
return this 
information to: Firstline Software, P.O. Box 5297, Hopki 8, MN 55343-2297. 


order form along 


y func 
'm ordering the following programs: 


Check or money order enclosed 
U.S. FUNDS ONLY 

VISA MasterCard 

Card # 


Phone ) 
Name — 


Name 


he ordering number(s) (G-1, A-3, etc.) of the program(s) you wish to order and 


Expiration Date 


Date__ 


o | 


! For ONLY $6.99 you can get. 
Choose from entertainment, home management or 


For the Apple II+, IIc, He 


Entertainment Series 


AcL_ Beginner's Cave, an Adventure 
Cave of the Mind, an Adventure 


Education Series 


A/37 Mr. Math 
A-38Speed Reading 


3 River Adventure,an Adventure A.9Beginning Counting 
A-4 Fore!, Golfing Simulator ‘A-40 Counting Skills 
AB Lady Luck A-41 Addition I 
6 Space Adventure 
AT Classic Games ‘4-43 Addition IL 
A-8 Android Invasion ‘A-44 Addition IV 
A-9 Championship Gambler 
A-10Chess Champion 


A-47Subtraction Il 
A-48 Multiplication | 
A-49 Multiplication IT 
A-0 Multiplication 111 
A-51 Division 1 

2 Division IT 

3 Division TIT 
Division 1V 


A-L1 Memory Quest 
‘A-13 Ulysses & the Golden Fleece 
4-15 Passport to London 

‘A-16 Passport to Paris 


Home Management 


¢ Addresser—Mailing List 
4-18 Financial Planner 
A-19 General Ledger 


A 


‘A-20Monthly Budgeter Electric Book Co. 

A-21 Nutrition Monitor Education Series 
Portfolio A.55Why? 

re “2 Recipe Box A-56 When’ 


A-57'The Three Bears 
A-58Gingerbread Man 

‘A-50 Baby Animals 

‘A-60 Hoppy the Curious Kangaroo 
A-61 Wild Animals 

A-62Tom Thumb, 

A631 Was a Second Grade Werewolf 
A-64 Tough Eddie 


‘ary 
¢ Calendar 
A-27 Electronic Phone Book 
A-28Family Tree 
‘A-29 Personal Spreadsheet 
A-30JWriter, Word Processor 
A-31 Utility Master 

2 Vital Data Keeper 
Typing Tutor 
Tax Record Organizer 
5 Checkbook Balancer 
36 JBase 


PPee> 


ENHANCER 2000™ 
Disk Drive $149.95 


plus $800 postage/handling 
Commodore compatible 
floppy disk drive 


ORDER FORM 


with your check, money order or VISA/MasterCard 


‘Total number of software pkgs x $6.99 each .. . 
Boxes of 5 Universal blank disks x $6.99 per box 
Boxes of 10 blank disks x $8.50 per box... 
300C 300 Baud Modem x $32.95 per modem 
Utility Cartridge x $19.95 each . 
Warp Drive Cartridge 
Enhancer 2000 Disk Dri 
Total amount of order , 
Postage/handling (8.00 For Disk Drive 
MN Residents add 6% state sales tax 
Total (enclose check, money order or fil n VISA/NC information at left) 
Money orders/Credit card orders shipped immediately. 

Allow 4-6 weeks for delivery for check orders. 


Addr 


City 


State. Zip. 


you run it, but ML asks the pro- 
grammer to use instructions which 
are not as general-purpose as 
BASIC instructions. 

This program will assemble as 
is if you are using the LADS assem- 
bler from one of my books. The 
game is designed for the Commo- 
dore 64 or 128, but please note the 
two changes (lines 18 and 110) nec- 
essary to adjust things for the 64. 


ve 
3 
a it 
is’ PI 
8 
28 P 
2 
168 
16 


11 


112 
128 
138 
148 
158 
163 
1688 


1618 
1611 


1812 
1613 
1628 
1621 


1622 


18638 
1931 
1832 
1633 


1634 


1648 
2688 


2816 


2811 
2628 


28368 


2048 
3888 


$BOO 
12 SPACES}SIMPLE GAME 


RINT = $FFD2:OUTNUM = $ 
E32; ($BDCD FOR C64) 
LRPTR = 25G:ENYPTR = 25 


LDA #147:3SR PRINT; 
{11 SPACES}CLEAR SCREEN 
PLR = 1654:ENY = 1034:K 
E = 212 ;(203 FOR C64) 
LDA #<PLR:STA PLRPTR: LD 
A #>PLR:STA PLRPTR+1:LD 
A #<ENY:STA ENYPTR:LDA 
{SPACE} #>ENY 
STA ENYPTR+1 
NEXT LDX #24 
LOOP JSR PLAYER:JSR DEL 
AY:JSR ENEMY 
DEX:BNE LOOP 
LDA X:EOR #1:STA X 
JMP NEXT 
PLAYER LDY #6:LDA #32: 
STA (PLRPTR),Y 
LDA KE:CMP #47:BNE UP 
LDA PLRPTR:CMP #222:BE 
Q MOVE 
CLC:LDA PLRPTR:ADC #48 
:STA PLRPTR:LDA PLRPTR 
+1:ADC #0 
STA PLRPTR+1:JMP MOVE 
UP LDA KE:CMP #44:BNE 
{ SPACE }MOVE 
LDA PLRPTR:CMP #36:BEQ 
MOVE 
SEC:LDA PLRPTR:SBC #46 
2STA PLRPTR:LDA PLRPTR 
+1:SBC #0:STA PLRPTR+1 
MOVE LDA #219:LDY #0:S 
TA (PLRPTR),Y 
LDY #262LDA (ENYPTR),Y 
3CMP #32:BEQ RETURN 
INC COUNT:BNE SHOWSCOR 
E:INC COUNT+1 
SHOWSCORE LDA #19:JSR 
{SPACE}PRINT:LDA #7:3S 
R PRINT:STX XHOLD 
LDX COUNT:LDA COUNT+1: 
JSR OUTNUM:LDX XHOLD 
RETURN RTS 
ENEMY LDY #0:LDA #32:S 
TA (ENYPTR) ,Y 
LDA X:BNE UPEN:CLC:LDA 
ENYPTR:ADC #40:STA EN 
YPTR:LDA ENYPTR+11:ADC 
(space) #0 
STA ENYPTR+11:3MP MOVEE 


NY 

UPEN SEC:LDA ENYPTR:SB 
C #49:STA ENYPTR:LDA E 
NYPTR+1:SBC #0:STA ENY 
PTR+1 

MOVEENY LDA #269:LDY # 
@:STA (ENYPTR) ,¥ 

RTS 

7{1l SPACES}SLOW THING 


DELAY LDA #16:STA TIME 
R:LDY #0 

MORE DEY:BNE MORE 

DEC TIMER: BNE MORE:RTS 
7{11 SPACES}STORAGE AR 
EA 

X BYTE 

TIMER .BYTE 0 

4938 COUNT .BYTE 0 @ 

4040 XHOLD .BUTE 


Also notice that we had to add 
a delay subroutine in lines 
3000-3030 because, without slow- 
ing down the action, no human 
could hope to play the ML version 
of the game. This is a byproduct of 
the great velocities you achieve 
when you program in ML: You 
sometimes need to deliberately re- 
tard your program or it executes too 
fast. Another way of looking at 
ML’s exceptional efficiency is that it 
gives you lots of extra time to insert 
additional variables or visual effects 
into the action of the game. You can 
add more realistic animated graph- 
ics, more enemies onscreen at the 
same time, or whatever else would 
make your game richer. Many 
things can be going on at the same 
time in an ML game—you could 
even give the enemy “intelligence” 
by having it seek out the player or 
anticipate his next move. While 
these things are possible in BASIC, 
they eventually make the anima- 
tion intolerably slow. 

Next month we'll take the ML 
version apart to learn the funda- 
mentals of action-game ML pro- 
gramming. For now, if you want to 
change its speed, just change the 10 
in line 3010 to some other value 
and reassemble the program. @ 


3016 


3628 
3030 
4908 


4018 
4828 


%& CUSTOM MADE TO FIT 


ke Heavy 32-0z. VINYL ANTI-STATIC 


& EXTENDS EQUIPMENT LIFE 


Choice of Colors Lt, Tan or Brown 


COMEUTERS 
VIC-20; C-16; Plus 4 
DATASETTE (NEW, €2N) 


DISK DRIVES 
C154}, C-1871, INDUS GT 


DUST COVERS 


All programs 
listed in this 
magazine are 
available on the 
GAZETTE Disk. 
See elsewhere 
in this issue 
for details. 


GEMINI 10 & STAI 
GEMINI 15 & STAR 15's 


OKINATE 10 


MONITORS 
1702 


102/ A} 
ZENITH ZVM 133/123 
AMDEK COLOR 1, 90/700 
TEKNIKA 

1 


Be cots 
VIDEO RECORDERS ..... 
(Denenaens Required) | 


by stating NAME 
ang COLOR CHOIC 


and MODEL 
TAN or BROW! 
Enclose chuck larimcuenserderinive $150 


guy stem (4.50 max.) shipping, and handling 
‘alifornia Res, Inciude 6.5°% Sales Tax. 


SPECIAL COVERS WILL BE MADE TO YOUR 
DIMENSIONED SKETCH, SEND YOUR RE- 
QUIREMENTS FOR OUR LOW PRICE QUOTES 


Crown Custom Covers 
9606 SHELLYFIELD RD., Dept. A 
DOWNEY, CA 90240 
(213) 862-8391 


CI 
FACTORY AUTHORIZED 


COMMODORE 
REPAIR CENTER 


1-800-772-7289 


i 

r 

i 

I 

n 

i 

r 

i IN ILLINOIS (312) 879-2888 
F C64 Repair ann . 39.95" 
1 

i 

r 

i 

r 

i 


1541 Repair .... 79.95* 

1541 Alignment 

only ......22+. 29,95* 

Power Supplies . 34.95 

Commodore Parts . CALL 

* Includes parts, labor & UPS retumn ship- 
ping. Air Freight add $10.00 


Diagnosis fee of $25.00 for any unit al- 
tered or with no defects. 


CALL BEFORE SHIPPING 
VISA, MASTER or MONEY ORDER 
SERIAL NUMBERS REQUIRED 


24-48 HRS TURN AROUND 
[Subject to Parts Availability) 


TEKTONICS PLUS, INC. 
150 HOUSTON ST. — STE.308 
BATAVIA, IL 60510 


CLIP AND SAVE 


te etetetet 
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TurboDisk 64 


If you've ever used a really fast disk 
drive, you know that the Commo- 
dore 1541 drive leaves something 
to be desired—namely, speed. 
True, it’s much faster than a Datas- 
sette, but it’s still annoyingly slow 
compared to other floppy disk 
drives with high-speed parallel in- 
terfaces. Now there’s a solution: 
“TurboDisk 64.” 

Once you start using Turbo- 
Disk, you'll wonder how you got 
along without it. TurboDisk turbo- 
charges the loading process by a 
factor of three times or more. In 
fact, the longer the program, the 
more improvement you'll see. 

TurboDisk requires no modifi- 
cations to your disk drive or com- 
puter, It loads programs saved in 
the usual manner; no special Turbo- 
save is required, It works with most 
BASIC and machine language pro- 
grams, including the DOS Wedge. 
Tt does not compromise reliability. 
And you can switch it on or off at 
any time by typing a single 
command. 

If you're still skeptical, give 
TurboDisk a try—it delivers what it 
promises. If you already have a 
copy of TurboDisk from the July 
1985 issue of the GAZETTE, or from 
that month's GAZETTE DISK, then 
you don’t need to enter this pro- 
gram. This is not an updated ver- 
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This program is so powerful and valuable that 
we're republishing it here for those who might 
not have seen it in the July 1985 issue. Impossible 
as it seems, “TurboDisk 64” speeds up the 1541 
disk drive’s loading time 300 percent or more—in 
fact, the longer the program, the more the gain. 
Also in this issue, you'll find several programs 
which expand the power of TurboDisk: “Turbo- 
Disk Relocator” and “Turbo Boot Maker.” 


sion of TurboDisk; it’s a reprint for 
those readers who may have 
missed it the first time around. 


Preparing TurboDisk 

Since TurboDisk is written entirely 
in machine language, it must be en- 
tered with the ‘““MLX” machine lan- 
guage entry program, found 
elsewhere in this issue. Be sure that 
you read and understand the in- 
structions for using MLX before you 
begin entering the data for Turbo- 
Disk. When you first run MLX, 
you'll be asked for starting and end- 
ing addresses. The proper values 
for TurboDisk are as follows: 
Starting address: C000 

Ending address: C3BF 

You may then begin entering the 
data for TurboDisk. If you want to 
save a bit of typing, you can skip 
lines C1B8-C1F8, since this filler 
area does not contain any useful 
information. 

When you've finished entering 
the numbers, be sure to use the 
MLX Save option to make at least 
one copy of the TurboDisk data. 
You'll probably find TurboDisk so 
useful that you'll want a copy on 
every disk you use. You can use the 
MLX Save option repeatedly to 
make copies on different disks. If 
you want to put a copy of Turbo- 
Disk on a new disk at some later 


date, you can use any copy program 
or you can use MLX. To do this, 
load and run MLX, then enter the 
starting and ending addresses listed 
above. Insert a disk containing Tur- 
boDisk into the drive, then use 
MLX's Load option to load in the 
TurboDisk data. Next, insert the 
disk on which you wish to write 
TurboDisk and use MLX’s Save op- 
tion to store the new copy. 

To load TurboDisk, use a com- 
mand of the form LOAD “TURBO- 
DISK 64’’,8,1 (replace TURBODISK 
64 with whatever filename you 
used when you stored the Turbo- 
Disk data). Next, type NEW and 
press RETURN to reset important 
memory pointers, then SYS 49152 
to activate the program. The mes- 
sage TURBODISK ACTIVATED 
signals that you're ready for high- 
speed loading. 


Turbocharged LOADs 

Once TurboDisk is activated, no 
special commands are necessary. 
Just type LOAD “‘filename’’,8 or 
LOAD “‘filename’’,8,1 as usual. 
You'll be amazed at the difference. 

One thing you'll notice imme- 
diately is that the red light on the 
disk drive doesn’t come on at all 
during a Turboload. Don’t panic; 
this is normal. It’s also normal for 
the 64’s screen to blank out as 
TurboDisk works, When the pro- 
gram is loaded, the screen reap- 
pears unaltered. 

You may occasionally find it 
necessary to deactivate TurboDisk 
and use a normal LOAD instead. 
For example, 1541 disk drives are 
prone to head-alignment problems, 
so if you have a disk formatted on a 
drive other than your own, you 
may find that your drive has diffi- 
culty loading programs from it. 
Since the Turboload routine gives 
up more easily on difficult LOADs, 


you may have to switch to the more 
forgiving standard LOAD to get the 
program into your computer. You 
can switch off TurboDisk at any 
time without erasing it from memo- 
ry by entering SYS 49155 (you 
should see the message TURBO- 
DISK DISABLED). To reactivate 
TurboDisk, enter SYS 49152. 

You'll also find it necessary to 
use the SYS to reactivate TurboDisk 
after pressing RUN/STOP-RE- 
STORE, which effectively discon- 
nects TurboDisk. 

TurboDisk resides in the 4K 
block of free memory starting at ad- 
dress 49152 (hex $C000), so it’s 
completely safe from BASIC. How- 
ever, many other machine language 
programs or subroutines also use 
this memory space and may over- 
write TurboDisk. Don’t attempt to 
use TurboDisk to load any program 
which occupies locations 49152- 
50431 ($C000-$C4FF). If the pro- 
gram you wish to Turboload uses 
this area of memory, you can use 
“TurboDisk Relocator,” found else- 
where in this issue. 

TurboDisk speeds up LOADs, 
but it can’t speed up SAVEs or 
VERIFYs. It also doesn’t affect the 
speed of disk file handling with 
OPEN, PRINT#, GET#, and so 
forth, It’s not compatible with cer- 
tain features of some programs, 
such as loading text files with 
SpeedScript, although you can use 
TurboDisk to load SpeedScript in 
the first place. It also may not work 
with some commercial software. 


How TurboDisk Works 
The machine language for Turbo- 
Disk is unusual in that only half of 
it works within your computer— 
the rest is actually executed within 
the 1541 drive itself, Commodore 
disk drives are intelligent units, 
containing their own microproces- 
sors, RAM, and ROM. This means 
that they can be programmed for 
special effects, like turboloading. 
During the brief delay you no- 
tice between the time you enter the 
LOAD command with TurboDisk 
and the time the drive starts spin- 
ning, 444 bytes of machine lan- 
guage are transferred from the 
computer to the drive’s RAM. In the 
64, it is stored in locations 49664— 
50107 ($C200-$C3BB). This re- 
quired transfer of data before each 
Turboload adds a certain amount of 


overhead time, which explains why 
TurboDisk gives less speed im- 
provement for short programs. 

TurboDisk operates by chang- 
ing the ILOAD vector at locations 
816-817 ($330-$331) to point to it- 
self, bypassing the normal LOAD 
routines in ROM. TurboDisk first 
checks to see whether a disk direc- 
tory (LOAD ‘’$’,8) or a VERIFY 
was requested. In either of these 
cases, control is returned to the 
ROM routines for normal process- 
ing. If a program LOAD was re- 
quested, the routine adds the 
filename to the code for the disk 
drive portion, then transfers that 
data to the drive’s memory. 

The portion of TurboDisk in 
the disk drive uses routines in the 
drive’s ROM to locate the desired 
program and read it from the disk 
sector by sector. To improve speed, 
routines like the one that turns on 
the red light are omitted, and only 
the essential ones are used. The 256 
bytes of data from each disk sector 
are transferred two bits at time to a 
256-byte buffer within the computer. 
In the 64, this buffer is at locations 
50176-50431 ($C400-$C4FF). 

TurboDisk machine language 
in the computer reads the incoming 
data from the serial port’s DATA 
and CLK lines, instead of just the 
DATA line as in normal serial data 
transfers, Thus, TurboDisk tempo- 
rarily converts your serial bus into a 
two-bit parallel bus. When the en- 
tire 256 bytes from a disk sector 
have been transferred into the com- 
puter’s buffer, data from the buffer 
is added to the program in memory 
while the drive is reading the next 
sector from the disk, 


Just How Fast Is It? 
Despite a few limitations, Turbo- 
Disk is one of the most valuable 
general-purpose utilities a disk user 
can own. To discover exactly how 
fast it is, we ran some tests. The 
results, below, demonstrate how 
TurboDisk yields the most im- 
provement with medium to long 
programs. (Results with different 
disk drives may vary.) 

Blocks Normal Turbo- Factor 


LOAD load 
Program1 31 21sec 7sec 3.0 
Program2 17 13sec Ssec 26 
Program3 45 31scc 9scc 3.4 
Program4 8 7sec Ssec 1.4 
ProgramS 25 18sec 6sec 3.0 
Program6 122 75sec 17sec 4.4 


Special Note To 128 Owners 
For those 128 owners who use a 
1541 disk drive: When you're in 64 
mode, you can load and run Turbo- 
Disk 64 as listed. For 128 mode 
(and a 1541), see ‘‘TurboDisk 128” 
elsewhere in this issue. 

If you own a 1571 disk drive, 
you don’t need a Turbo program 
while you're in 128 mode—the 128 
and 1571 are capable of using the 
fast serial transfer hardware built 
into the disk drive and computer. 
The 128/1571 combination is twice 
as fast as TurboDisk at its best, and 
about eight times faster than the 
1541 alone. The 1571 slows down 
to the 1541’s sluggish pace when 
you're in 64 mode, however. To 
speed up the 1571/64 mode combi- 
nation, you can use TurboDisk 64. 
But first you must tell the 1571 to 
act like a 1541 with the following 
line: 

OPEN 15,8,15, “U0>M0": CLOSE 15 


To go back to 1571 operations, 
change the second zero to a one 
(“U0>M1”). However, you must 
make a decision. You can use dou- 
ble-sided disks while the 128 is in 
64 mode and the drive is in 1571 
mode, but not while using Turbo- 
Disk 64. Or you can use TurboDisk 
to speed up the 1571 drive in 1541 
mode, but then you cannot use 
both sides of a disk. It’s up to you: 
fast operations limited to one side 
of the disk or slow loads and access 
to both sides of a disk. 


See program listing on page 97. @ 


Note to readers outside North 
America: High-speed Turbo- 
Disk data transfers rely on pre- 
cise timing, so the program may 
fail to operate on systems that 
use the European PAL video 
system instead of the North 
American NTSC system. The 
reason is rather technical—64s 
with PAL video use a slightly 
different microprocessor clock 
frequency. To. compensate for 
this, an Australian reader sub- 
mitted a modification which ap- 
peared in the January 1986 
“Bug-Swatter” column. If Tur- 
boDisk will not operate proper- 
ly with your PAL video 64, try 
changing the following lines as 
shown: 


€198:8D O08 DD A2 64 CA DO FD AB 
C19B:EA A2 04 AD OB DD GA GB 29 
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TurboDisk Relocator 


Commodore 64. 


“TurboDisk 64” is an excellent util- 
ity program that radically speeds up 
the 1541 for load operations. Since 
TurboDisk may be activated in pro- 
gram mode, it can be incorporated 
quite easily with other programs. 
The only drawback is its location in 
memory—$C000 or 49152, quite a 
popular spot for other machine lan- 
guage programs. You may often find 
yourself forced to use a normal load 
because the program you want to 
turboload is at that same address. 

Because of the numerous 
memory configurations available 
on the 64, many programs are writ- 
ten as modules. When the main pro- 
gram is executed, it in turn loads in 
other modules such as machine lan- 
guage routines, hi-res screens, and 
so on. All the modules required are 
loaded in only once when the pro- 
gramis first run. TurboDisk (in pro- 
gram mode) is also needed only 
once at the beginning of the module 
loading. By being able to relocate 
TurboDisk, we could put it in 
BASIC RAM (or wherever we want) 
and not worry about it being over- 
written, because once the modules 
are loaded, we can deactivate it 
since it’s no longer needed. Care, 
however, must be taken to relocate 
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Dino Bavaro 


“TurboDisk 64” becomes a more versatile and 
powerful utility when used with this short 
program. Now you can use TurboDisk 64 with 
most any machine language program. For the 


TurboDisk to an area of memory 
which does not conflict with the 
modules being loaded. 


User's Choice 

The program accompanying this ar- 
ticle, ‘“TurboDisk Relocator,” al- 
lows you to select the area of 
memory for TurboDisk, The DATA 
statements in this program reflect 
the key memory locations that have 
to be altered whenever TurboDisk 
is relocated to a different area of 
memory. To use the program, just 
type it in and run it. The program 
prompts you for a new program 
name to be assigned to the new ver- 
sion, I find it helpful to append the 
program's starting address to the 
end of the program name. If you 
were creating a TurboDisk version 
to be executable at location 4096, 
you could name it “TBDISK.4096”. 
This makes things easier, especially 
if you have other versions of Turbo- 
Disk that execute at different loca- 
tions. 

The program prompts you to 
enter the memory address of where 
to assemble the new version of Tur- 
boDisk. You should respond with a 
decimal address on a full-page 
boundary (that is, an even multiple 


of 256). It’s advisable not to select 
memory areas under ROM or other 
key memory pages such as addresses 
below 2048. 

Once the program knows the 
address of where to locate the new 
TurboDisk version and the new 
name, it proceeds to read the origi- 
nal version from disk and write a 
new version modified for the speci- 
fied starting address back to the 
same disk. (Be sure the name you 
use for the new version is not al- 
ready used by another file on the 
disk.) 

To activate the new version, 
use a SYS statement to the new 
starting address you selected. For 
example, if you created a version of 
TurboDisk relocatable to address 
32768, then you would start it with 
SYS 32768 (in either program or di- 
rect mode). To deactivate the new 
version, SYS to the address three 
bytes beyond the new starting ad- 
dress. For the example of starting at 
32768, you could use SYS 32768 + 
3 (or just SYS 32771). To incorpo- 
rate TurboDisk into one of your 
programs which loads modules, you 
can use the following technique. 

1 ON A GOTO 3,5,6 

2 A=1:LOAD “TBDISK.32768",8,1: REM 
LOAD TBDISK VERSION 32768 

3 SYS 32768: REM ACTIVATE 
TURBODISK 

4 A=2:LOAD “HI-RES SCREEN’,8,1 

5 A=3:LOAD “ML-SORT”,8,1 

6 SYS 32768+3: REM DEACTIVATE 
TURBODISK 

7 REM REST OF PROGRAM 


See program listing on page 102. @ 


Turbo BootMaker 


Bert Rozenberg 


This program makes “TurboDisk 64” even more 
useful. It creates a boot program that lets you load 
any program at turbo speed—without using Turbo- 
Disk. And after turboloading, it automatically 
runs. For the Commodore 64 and 1541 disk drive. 


One of my favorite programs from 
COMPUTE!'s GAZETTE is ““TurboDisk” 
for the Commodore 64. It greatly 
speeds up the loading time of the 
ordinarily slow 1541 disk drive. To 
enhance the use of this excellent 
utility, | wrote “Turbo BootMaker,” 
which lets you autoboot your pro- 
grams at turbo speed without load- 
ing TurboDisk. 


Making The Boot 
After typing in Turbo BootMaker, 
save a copy. To use it, load it and 
type RUN. (If you’re using Turbo- 
Disk, be sure to disable it before you 
run Turbo BootMaker.) The screen 
prompts make the program very 
easy to use. First, insert your disk 
with a copy of TurboDisk. (Ed. note: 
Turbo BootMaker works with any ver- 
sion of TurboDisk—July 1985 GA- 
ZETTE, April 1985 COMPUTE!, or 
“TurboDisk 64,” elsewhere in this is- 
sue. It also works with versions creat- 
ed using “TurboDisk Relocator,” also 
in this issue.) You're asked to enter 
the TurboDisk filename (the name 
you used to save it on your disk). Be 
sure to use an appropriate version 
of TurboDisk. The normal version 
works for turbobooting BASIC pro- 
grams and some machine language 
(ML) programs. However, it cannot 
be used to turboboot ML programs 
that load at its own address, 49152 
($C000 hexadecimal), To turbo 
boot an ML program that resides at 
49152, you must use a version of 
TurboDisk that resides elsewhere 
in memory. The “TurboDisk Relo- 
cator’’ program elsewhere in this is- 
sue lets you create versions of 
TurboDisk that can work from oth- 
er memory locations. After you en- 
ter the filename, there will be a 
short delay as the TurboDisk file is 
read into memory. 

You're then asked to insert the 


disk on which you wish to create 
the turbobooter file. The next 
prompt asks for the filename of the 
program you want to turboboot. (If 
you press RETURN only at this 
prompt, the wildcard (*) character 
will be used as the filename.) If a 
copy of that program is not already 
present on the disk, you'll be re- 
minded to add a copy after you fin- 
ish creating the turbobooter. Turbo 
BootMaker does not alter the pro- 
gram to be turbobooted; instead, it 
creates a file that automatically 
loads TurboDisk, then turboloads 
the specified program and starts it 
running. A copy of the program to 
be turbobooted must be on the 
same disk as the turbobooter file. 
That copy can always be loaded 
and run normally independently of 
its associated turbobooter file. 
You're asked if the program to 
be turbobooted is BASIC or ML 
(machine language). Press B or M. If 
it’s ML, you're asked for the start- 
ing address, which can be entered 
in either decimal or hexadecimal 
(you must precede hex values with 
a $). For example, if the command 
to start the program is SYS 49152, 
you can answer the starting address 
prompt with either 49152 or $C000. 
You should note that many of the 
major machine language programs 
published in the GAZETTE are de- 
signed to be loaded and run as if 
they were BASIC. Such programs 
usually start at address 2049 
($0801); examples include Speed- 
Script, ‘“SpeedCheck,” and ‘Ad- 
dress Cataloger” (in this issue). For 
these programs you should select B 
(BASIC), not M (machine lan- 
guage), at this prompt. If you select 
Mand specify 2049 or $0801 as the 
starting address, the program will 
crash after loading. As a rule, if you 
start a program with RUN, select 


option B; if you start it with a SYS, 
select option M. 

Last, you're prompted to give a 
filename to the new turbobooting 
program (do not use the wildcard 
convention), It would be wise to 
use a filename which indicates that 
this is a turbobooter file, and which 
program it turboboots. For ex- 
ample, you might use the name 
SS.TBOOT for a file which turbo- 
boots SpeedScript. After you enter 
the filename, there will be another 
short delay as the turbobooter file is 
written to disk. 

At this point, you’ve created a 
boot program that will automatical- 
ly load the specified program at tur- 
bo speed every time you run it, It 
also runs the program after it’s been 
loaded. You don’t need to have 
TurboDisk on the same disk—all 
you have to do is LOAD “’file- 
name’’,8,1 (be sure to include the ,1) 
where filename is the name of the 
turboboot file you created with the 
procedure described above. 

There are a few things you 
should note about using the turbo- 
booter file. First, the screen will ap- 
pear to fill with garbage characters 
for a second or two after you enter 
the LOAD command. Don’t panic; 
this is normal, and the screen is 
cleared when the turboload begins. 
Second, even though the turbo- 
booting process usually is a good 
deal faster than a regular LOAD, it 
isn’t quite as fast as turboloading 
directly with TurboDisk already in 
memory. This is because the turbo- 
booter must load the TurboDisk 
machine language before it can tur- 
boload the program. However, 
you'll probably find that the 
convenience of having your pro- 
grams start automatically out- 
weighs the slight speed decrease. 
Finally, when turbobooting ma- 
chine language programs like ““Me- 
taBASIC” that are designed to be 
used in conjunction with BASIC, 
you must remember to type NEW 
and press RETURN after the turbo- 
boot is finished so that important 
memory pointers will be reset. 

See program listing on page 99. @ 
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TurboDisk 128 


If you've upgraded to a Commo- 
dore 128 from a VIC-20 or 64 and 
are still using a 1541 disk drive, 
you're probably envious of those 
fellow 128 owners whose 1571 
drives can load programs in the 
blink of an eye. Perhaps you’ve 
used “TurboDisk 64” in 64 mode 
and wished for an equivalent 
speedup for 128 mode. Here's the 
answer: “‘TurboDisk 128," a new 
and improved version specifically 
for the 128/1541 combination. 

TurboDisk 128 works only in 
128 mode; you'll still need to use 
TurboDisk 64 in 64 mode. And the 
program works only with a 1541; it 
isn’t useful in conjunction with a 
1571, If you own a 1571 disk drive, 
you don’t need a Turbo program 
while you're in 128 mode: The 128 
and 1571 can use the fast serial 
transfer hardware built into both 
disk drive and computer, which is 
as much as eight times faster than a 
standard 1541—about twice as fast 
as TurboDisk. 

But even if TurboDisk 128 
doesn’t permanently cure your de- 
sire for a 1571, it will make your life 
with the 1541 more bearable. In 
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Don Lewis 


Are you using a 1541 disk drive with your Com- 
modore 128? Here’s a powerful utility that can 
reduce the time you spend waiting for programs 
to load by 300 percent or more. 


fact, once you start using Turbo- 
Disk, you'll wonder how you got 
along without it. TurboDisk turbo- 
charges the loading process by a 
factor of three times or more. In 
fact, the longer the program, the 
more improvement you'll see. Like 
TurboDisk 64, the 128 version re- 
quires no modifications to your disk 
drive or computer. It loads pro- 
grams saved in the usual manner; 
no special Turbosave is required. It 
works with most BASIC and ma- 
chine language programs. It does 
not compromise reliability. And 
you can switch it on or off at any 
time by typing a single command. 


Typing It In 

Since TurboDisk is written entirely 
in machine language, it must be en- 
tered with the new 128 version of 
our “MLX” machine language en- 
try program, which makes its debut 
elsewhere in this issue. Be sure that 
you read and understand the in- 
structions for using MLX before you 
begin entering the data for Turbo- 
Disk. When you first run MLX, 
you'll be asked for starting and end- 
ing addresses. The correct values 
are as follows: 


Starting address: 1300 
Ending address: 16CF 
Now you may begin entering the 
data for TurboDisk. When you've 
finished entering the numbers, be 
sure to use the MLX Save option to 
make at least one copy of the Tur- 
boDisk data. You'll probably find 
TurboDisk so useful that you'll 
wanta copy on every disk you use. 
You can use the MLX Save option 
repeatedly to make copies on differ- 
ent disks. If you want to put a copy 
of TurboDisk on a new disk at some 
later date, you can use any copy 
program or you can load an existing 
copy of TurboDisk, place the disk 
on which you wish to store the new 
copy of TurboDisk in the drive, and 
use a command of the form BSAVE 
“filename’’,B0,P4864 TO P5839, 
To load TurboDisk, use a com- 
mand of the form BLOAD “’TUR- 
BODISK 128’:SYS DEC(‘1300"’) 
(replace TURBODISK 128 with 
whatever filename you used when 
you stored the TurboDisk data). 
The message C128 TURBODISK 
ENABLED signals that you're ready 
for high-speed loading. 


Turbo LOADS 

Once TurboDisk is activated, no 
special commands are necessary. 
Just type LOAD “‘filename’’,8 or 
DLOAD “filename” or BLOAD“file- 
name” as usual. You'll be amazed at 
the difference, 


One thing you'll notice immedi- 
ately is that the red light on the disk 
drive doesn’t come on at all during a 
turboload. Don’t panic; this is nor- 
mal. It’s also normal for the 40- 
column screen to blank while 
TurboDisk works. When the pro- 
gram is loaded, the screen reappears 
unaltered. 

You may occasionally find it 
necessary to deactivate TurboDisk 
and use a normal LOAD instead. For 
example, 1541 disk drives are prone 
to head alignment problems, so if 
you have a disk formatted on a drive 
other than your own, you may find 
that your drive has difficulty loading 
programs from it. You can switch off 
TurboDisk at any time without eras- 
ing it from memory by entering SYS 
DEC(‘1303”), or the equivalent SYS 
4867. You should see the message 
C128 TURBODISK DISABLED. To 
be safe, it would be wise to include a 
BANK 15 before the SYS to ensure 
that the system is in its normal 
BASIC configuration. To reactivate 
TurboDisk, enter SYS DEC(‘1300"), 
or the equivalent SYS 4864 (again, it 
would be wise to precede this with a 
BANK 15). You should see the mes- 
sage C128 TURBODISK ENABLED 
to indicate that turboloading is now 
available. 

You'll also find it necessary to 
use the SYS to reactivate TurboDisk 
after pressing RUN/STOP-RE- 
STORE, which effectively discon- 
nects TurboDisk. 

TurboDisk resides in the cur- 
rently unused area of free memory 
starting at address 4864-5839 (hex 
$1300-$16CF), so it’s completely 
safe from BASIC, However, this 
memory area is rapidly becoming 
popular with 128 machine language 
programmers and you may find oth- 
er programs that use these locations. 
Such programs cannot be used with 
TurboDisk because loading them 
will overwrite the TurboDisk pro- 
gram. Turbodisk also uses the block 
of memory at 3072-3327 ($0C00- 
$0CFF) as a buffer for the data read 
from disk. This area is the RS-232 in- 
put buffer, but since the 128 can’t 
turboload and receive RS-232 input 
simultaneously, this dual usage 
should cause no conflict. However, 
you should be aware that some pro- 
grammers use the RS-232 buffers for 
machine language routines. Such 
routines cannot be used with Turbo- 
Disk. 

TurboDisk speeds up LOAD, 


DLOAD, BLOAD, and the moni- 
tor’s L command, but it can’t speed 
up SAVE or VERIFY. It also doesn’t 
affect the speed of disk file han- 
dling with PRINT#, GET#, and so 
forth. It’s not compatible with cer- 
tain features of some programs and 
may not work with some commer- 
cial software. 


How It Works 

The machine language for Turbo- 
Disk is unusual in that only half of 
it works within your computer— 
the rest is actually executed within 
the 1541 drive itself. Commodore 
disk drives are intelligent units, 
containing their own microproces- 
sors, RAM, and ROM. This means 
that they can be programmed for 
special effects, like turboloading. 

During the brief delay you no- 
tice between the time you enter the 
load command and the time the 
drive starts spinning, 464 bytes of 
machine language are transferred 
from the computer to the drive's 
RAM. In the 128, this data is stored 
in locations 5376-5839 ($1500- 
$16CF). This required transfer 
before each turboload adds a cer- 
tain amount of overhead time, 
which explains why TurboDisk 
gives less speed improvement for 
short programs. 

The 128-resident portion of 
TurboDisk operates by changing 
the ILOAD vector at locations 
816-817 ($330-$331) to point to it- 
self, bypassing the normal LOAD 
routines in ROM. TurboDisk first 
checks to see whether a disk direc- 
tory or a verify operation was re- 
quested. In either of these cases, 
control is returned to the ROM rou- 
tines for normal processing. If a 
program load was requested, the 
routine adds the filename to the 
code for the disk drive portion, then 
transfers that data to the drive’s 
memory. 

The portion of TurboDisk in 
the disk drive uses routines in the 
drive’s ROM to locate the desired 
program and read it from the disk 
sector by sector. To improve speed, 
routines like the one that turns on 
the red light are omitted, and only 
the essential ones are used. The 256 
bytes of data from each disk sector 
are to a 256-byte buffer within the 
computer, As mentioned above, this 
buffer is at locations 3072-3327 
($0C00-$0CFF). TurboDisk sends 


data over both the DATA and CLK 
lines on the serial port, instead of 
just the DATA line as in normal se- 
rial data transfers. Thus, TurboDisk 
temporarily converts your serial bus 
into a two-bit parallel bus. When 
the entire 256 bytes from a disk sec- 
tor have been transferred into the 
computer's buffer, data from the 
buffer is added to the program in 
memory while the drive is reading 
the next sector from the disk. 


The Longer, The Faster 
Despite a few limitations, Turbo- 
Disk is one of the most valuable 
general-purpose utilities a disk user 
can own. To discover exactly how 
fast it is, we ran some tests. The re- 
sults, below, demonstrate how Tur- 
boDisk yields the most improve- 
ment with medium to long 
programs. (Results with different 
disk drives may vary.) 


Blocks Normal Turboload Factor 


LOAD (seconds) 
(seconds) 
Program 1 7 7 3 2.33 
Program 2 16 13 4 3.25, 
Program 3 28 20 6 3.33 
Program4 55 40 10 4.00 
Program 5 138 4 2 3.76 


Note to readers outside North 
America: High-speed Turbo- 
Disk data transfers rely on pre- 
cise timing, so the program 
may fail to operate on systems 
that use the European PAL vid- 
eo system instead of the North 
American NTSC system, The 
reason is rather technical— 
128s with PAL video use a 
slightly different microproces- 
sor clock frequency. An Austra- 
lian reader submitted a 
modification to compensate for 
this in the Commodore 64 ver- 
sion. Since we do not have ac- 
cess to a 128 with PAL video 
for testing, we cannot guaran- 
tee that the same modification 
will work in the 128 version, 
but if TurboDisk 128 will not 
operate properly with your 
PAL video system you can try 
changing the following line: 


1468:A2 64 CA DO FD EA A2 04 2E 


See program listing on page 97. @ 
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or MPS-802 printer. For 
Plus/4, 16, and VIC-20. 


The Commodoge 1526 and MPS-802 
printers offer very good print quali- 
ty. They also offer the programmer 
precise control over the spacing of 
the printed lines. This spacing is 
easily changed with this single line: 
OPEN 6,4,6:PRINT#6,CHRS():CLOSE 6 


The value of J determines the 
line spacing. A value of 36 results in 
normal spacing on the MPS-802. 
(The printer divides an inch into 
216 segments, so the usual spacing 
of six lines per inch translates to 
36/216 spacing from the bottom of 
one character to the bottom of the 
next.) The smaller the value of J, the 
smaller the line spacing. A value of 
0 results in no linefeed at all—the 
lines will overlap, printing one on 
top of another. By changing the 
spacing to a small value (1 or 2) and 
printing the same line twice, one 
can get very well-defined character 
print quality. The two lines overlap, 
but one is slightly lower (1/216 
inch). This overlap allows the char- 
acters to be more fully formed and 
darker. 

While this method is fine for 
one or two lines, it gets quite te- 
dious with any more. “Boldface” 
automates this process, It takes any 
sequential text file and prints it out 
with this improved character quality. 

Boldface is very easy to use; 
just type it in and RUN it. Type in 
the name of your sequential file 
when prompted. Be certain that your 
printer is turned on before pressing 
RETURN. To print a sequential file 
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Boldface 


Thomas Carlson 


This seven-line program offers an added dimen- 
sion—a boldface font—to your Commodore 1526 


the Commodore 128, 64, 


from tape instead of disk, you'll 
need to change line 20 to 
OPEN 4,4,7: OPEN 6,4,6: OPEN 8,1,0,FF$ 


Converting To Sequential Files 

If you want to print program list- 

ings in bold, you'll first have to con- 

vert the listing to a sequential file. 

You can do this using 

OPEN 88,8, “0:filename,S,W”: CMD 
8,"title”: LIST 

for disk (be sure you have a format- 

ted disk in the drive before entering 

the command), or 

OPEN 81,1, “filename”: CMD 8,“title”: 
LIST 


for tape. After the cursor reappears, 
type the following: 


PRINT#8: CLOSE 8 


and press RETURN. If you were 
writing to disk, the drive should 
stop spinning and the busy light 
should go out, Your listing is now a 
sequential file—with the filename 
you chose—ready to be printed out 
with Boldface. 

Many word processors, like 
Easy Script, automatically format 
text into sequential files. Some oth- 
er word processors, like SpeedScript 
and WordPro, create program files 
containing screen codes instead of 
character codes, But it’s not difficult 
to convert these. WordPro, for ex- 
ample, has a way to save the file to 
disk in ASCII format (see your 
manual). 


In SpeedScript 3.0 and higher, 


you can load a document and then 
press SHIFT-CTRL-P. Answer the 
Print to: prompt with D for disk 
(SpeedScript cannot print to tape), 
then type in a filename for the text, 
Your text will be written to a se- 
quential (SEQ) disk file as character 
codes. Version 1 or 2 of SpeedScript 
does not allow printing to the disk, 
so you'll have to use the file con- 
verter program from the “Speed- 
Script Revisited” article in the May 
1984 issue of COMPUTE!'s GAZETTE. 


Modifications For 1526 
Because the earlier 1526s used 
slightly different spacings from the 
later models of the 1526 (and the 
MPS-802), some modifications may 
be needed. The first thing to check 
is the print quality. In line 50, the 
number following the first CHR$ 
(currently 1) determines this. Cre- 
ate a short test file and print it out 
several times using Boldface, each 
time using a different number in 
line 50 (between 0 and 4 is an ac- 
ceptable range). Keep whichever 
number gives the best quality. Now 
the spacing between lines must be 
adjusted. The number following 
the second CHR$ in line 50 (cur- 
rently 17) determines this. Print 
your test file and see how closely it 
matches the spacing your printer 
normally uses. If the spacing with 
Boldface is too wide, then decrease 
the value of 17 in line 50. If it’s too 
narrow, then increase the value of 
17. Then make another test print- 
out and continue changing the val- 
ue in line 50 until the spacing with 
Boldface is the same as your printer 
usually prints. When you achieve 
the results you want, your version 
of Boldface should be saved to disk 
or tape. It’s now ready to use. 


See program listing on page 101. @ 


KeyDef 


A. F. Shephard 


With this short utility for the Commodore 128, 
you can redefine any—or all—of the keys to print 
whichever character you choose. 


The Commodore 128 is a highly 
versatile and powerful machine— 
windows, high- resolution graph- 
ics, 40- or 80-column displays, re- 
definable function keys, and more. 
But it suffers from a few shortcom- 
ings. For example, the numeric key- 
pad is almost useless for DATA 
statements because there is no com- 
ma, unless you use the KEY state- 
ment to redefine one of the function 
keys. Wouldn't it make more sense 
to change the period to a comma? 
Unfortunately, KEY acts only on 
the function keys. But ‘“KeyDef” 
lets you redefine any key on the 
keyboard, and gives you access to 
six completely different keyboards. 


Scanning For A Code 

To understand how this is possible, 
you need to understand how the 
128 determines which character to 
display when a key is pressed. 
Here’s a short synopsis: The com- 
puter interrupts its normal opera- 
tions 60 times per second to 
perform housekeeping chores. One 
of these chores is checking to see 
whether a key is pressed. This pro- 
cess, called the keyscan, involves 
checking each key in sequence to 
see if it is pressed. The 88 keys are 
arranged electrically in a matrix as 
eight rows of 11 columns. Each key 
has a keycode that reflects the key’s 
position within the matrix. Only 
one keycode is returned per key- 


scan; if more than one key is 
pressed, the value returned will be 
that for the key with the higher 
keycode. Keycodes range from 
0-87; if no key is pressed, the key- 
scan routine returns the value 88. 
You can find the keycode for most 
keys by running this one-line 
program: 

10 PRINT PEEK(213): GOTO 10 


Following is a complete list of key- 
codes. 


If you’re familiar with the 
128’s character (ASCII) codes, it 
will be obvious that the keycodes 
don’t have any direct relationship 
to the character codes for the corre- 
sponding letters and numbers on 
the faces of the keys, so you may be 
wondering how the 128 translates 
the keycode into a character code, 
Note that none of the shift keys 
(SHIFT, Commodore, CONTROL, 
ALT, or CAPS LOCK) appears in 
the keycode table. Instead, the 
keyscan routine checks these keys 
to select one of six translation ta- 
bles. The keycode is then used as an 
index to the table to find the equiv- 
alent character code for the key be- 
ing pressed. For example, suppose 
SHIFT-N is pressed; the keyscan 
routine will select the SHIFT trans- 
lation table and read the 39th value 
in the table as the value for SHIFT- 
N (the keycode for N is 39). 

To determine the addresses of 


the translation tables, the 128 
maintains a set of six pointers in 
memory. (A pointer consists of two 
consecutive memory locations that 
together hold an address in the 
standard low-byte/high-byte for- 
mat.) The pointers to the keyboard 
translation tables are found on page 
3 of the 128’s memory: 

830-831 ($033E-033F) standard (unshifted) 
832-833 ($0340-0341) SHIFT 

834-835 ($0342-0343) Commodore 

836-837 ($0344-0345) CTRL 

838-839 ($0346-0347) ALT 

840-841 ($0348-0349) CAPS LOCK 

On powerup or reset, these lo- 
cations are initialized to point to ta- 
bles in ROM. The pointers can be 
changed to point to customized ta- 
bles in RAM, however, and that’s 
just what KeyDef does. It copies the 
usual values from the ROM tables 
down to a free area of RAM memo- 
ry and then changes the pointers to 
point to the new tables in RAM. By 
POKEing new ASCII codes into the 
relocated tables, the keyboard can 
be redefined. 

Each of the translation tables 
contains 89 bytes; the first 88 bytes 
in the table each correspond to one 
keycode, while the last byte is the 
value. returned if no key is pressed. 
There are actually only five differ- 
ent tables in ROM. The ALT-key 
pointer starts out with exactly the 
same value as the unshifted-key 
pointer, which explains why ALT 
doesn’t seem to do anything. How- 
ever, KeyDef sets up a separate ta- 
ble for ALT, so it can now have 
definitions completely independent 
of the unshifted key definitions. 
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“Commodore 128 Keycodes 


Key Keycode 
57 


59 


2] 


R/HOME 


Zeke rooUP-@odAmOn | oes=s1 
z 4 Z 


CRSR left/right 2 
FL 4 


FS 6 
ESC 72 
HELP 64 
NO SCROLL 87 
Cursor | 84 
Cursor ~ 86 
Numeric keypad: 

oO 81 
2 68 
4 69 
6 77 
8 65 
+ 73 
\ 82 


. 


tal 
& 
< 


ST/DEL 0 


SADA se Dposaers 
CE S3P+ 

Zz 

< 

3 

mos 


Z5ONG 


CRSR up/down 


Using The Program 
KeyDef is written entirely in BASIC 
so there are no special instructions 
for typing it in. Just remember to 
save a copy before running it. 
After a brief pause, during 
which the key definitions are cop- 
ied from the translation tables in 
ROM down to a free area of RAM 
memory, KeyDef prompts you to 
enter the key you wish to redefine. 
Press the appropriate key. Next, 
you're asked for the table in you 
wish to redefine the key (unshifted, 
SHIFT, Commodore, CTRL, ALT, 
or CAPS LOCK), You are then told 
the current ASCII (character) code 
value of the key in the selected ta- 
ble. Finally, you’re prompted to en- 
ter the new character code for the 
key. If you're unfamiliar with Com- 
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modore’s character codes, look in 
Appendix E of the System Guide. 
Unfortunately, this table was cop- 
ied verbatim from the 64 User’s 
Guide, and some of the character 
codes between 0 and 32 are incor- 
rect. For a more accurate list of these 
codes, see Appendix I. CTRL-G 
(code 7), for example, produces a 
bell tone. It’s listed in Appendix I, 
but not in Appendix E. 

There are some tricky keys we 
need to mention. One is NO 
SCROLL—you must press it twice 
for KeyDef to recognize it when it 
asks Which Key? After that, it func- 
tions as you want it to. Also, the 
current function key definitions are 
stored and erased at the beginning 
of KeyDef, then restored at the end. 
Thus, to keep your function keys 


definitions intact, do not quit Key- 
Def with RUN/STOP-RESTORE. 
HELP and SHIFT-RUN/STOP are 
normally character codes 132 and 
131, respectively. These can also be 
moved around the keyboard. RUN/ 
STOP is odd, Press SHIFT with it if 
you want to redefine it. Notice that 
the numeric keypad numbers are 
different from those on the top of 
the keyboard, even though normal- 
ly they act the same. The set of cur- 
sor keys at the top of the keyboard 
also has different keycodes from 
the pair at the bottom, so the two 
sets can be independently re- 
defined. 

If you need to recopy the stan- 
dard keyboard definitions to set 
things back to normal after KeyDef 
is first run, exit the program and 
type RUN 20. Should you wish to 
save a set of definitions, the proce- 
dure is easy. Just enter the follow- 
ing commands: 

BSAVE “filename1”,BO,P5888 TO P6422 
BSAVE “filename2”,B0,P830 TO P842 


These redefinitions can be reloaded 
with these commands: 


BLOAD “filename1” 
BLOAD “filename2” 


The KeyDef program doesn’t 
need to be present in memory once 
you've used it to make the new def- 
initions. The tables that are 
BLOADed are sufficient to redefine 
the keyboard. The computer auto- 
matically handles the keyscanning 
and character translation. However, 
you must take some care when 
changing the pointers to the trans- 
lation tables. Before you change the 
pointers, the addresses to which 
you redirect the pointers must con- 
tain valid translation tables (which 
is why you must BLOAD the tables 
before you BLOAD the vector val- 
ues). Otherwise, you won't be able 
to type on the keyboard because the 
computer will not be able to inter- 
pret your keypresses. In fact, you 
can’t even use RUN/STOP-RE- 
STORE if the RUN/STOP key isn’t 
defined; your only recourse will be 
the reset switch, 

The area of memory set aside 
for the new translation tables is 
$1700-$1915 (5888-6421)—534 
bytes total for the six 89-byte tables. 
According to the memory map in 
the System Guide, this is part of the 
area reserved for function key soft- 
ware, Basically, it doesn’t get used 


by BASIC, so it’s a perfect place for 
data like this. (Other machine lan- 
guage routines may use this area, 
however, so you should be on the 
lookout for conflicts. ‘“TurboDisk 
128” also resides in part of this re- 
served area, but it uses addresses 
lower than KeyDef, so the two pro- 
grams can safely be used together.) 

It should be noted that KeyDef 
changes only the keyboard behav- 
ior; the way the computer runs is 
unaltered. The letters on the screen 
keep their usual shapes; this is not a 
program to create custom charac- 
ters. Also, if you change the letter T 
to be a Z, you've banished T from 
the keyboard but not from the com- 
puter. It can still print a T if you 
type ? CHR$(84)—the ASCII codes 
for the characters remain the same. 


A Few Suggestions 

The first thing you might want to 
do with KeyDef is to correct a minor 
but annoying bug. The CAPS 
LOCK key on the top row works 
like the SHIFT LOCK key for all al- 
phabetic keys except for the letter 
Q, which still prints its unshifted 
form, This is sometimes called the 


—————— 


caps-lock-q bug, and the reason it 
occurs is very simple—whoever at 
Commodore prepared the CAPS 
LOCK key translation table put the 
wrong character code value in the 
keycode position for Q. KeyDef al- 
lows you to fix this bug. Just replace 
the value for Q in the CAPS LOCK 
table with the proper value (209). 

You may find the ESCape code 
sequences very useful when you're 
programming (see Appendix I in 
the System Guide for a complete 
list). ESC-A turns on automatic in- 
sert mode, ESC-I inserts a blank 
line, ESC-Q erases to the end of a 
line, and so on. But you have to 
reach up to the top left corner to 
reach the ESC key, which is some- 
what awkward. If you defined the 0 
on the numeric keypad as ESC 
(CHR$(27)) and the other keys on 
the keypad as A, I, Q, andso on, the 
escape sequences would be easier 
to type. 

If you use a modem in telecom- 
munications, you probably know 
that certain control characters are 
common (CTRL-C, CTRL-P, CTRL- 
S, and CTRL-Q are a few of the im- 
portant ones). You need two hands 


to type these keys, which is some- 
what inconvenient. If you prede- 
fined some keys to print the control 
characters, it would simplify things 
a bit. 

Another good use, mentioned 
above, is redefining the period on 
the numeric keypad to be a comma. 
This is helpful when you have to 
type in a lot of DATA statements. 
To make typing in DATA state- 
ments even easier, turn on auto- 
matic line numbering with the 
AUTO command, and use the KEY 
statement to change one of the 
function keys to print DATA. 

One final suggestion: The Ap- 
ple IIc has a small toggle switch 
above the keyboard for changing 
the usual keyboard layout, which is 
most often called the QWERTY key- 
board, to a Dvorak keyboard. The 
woman who holds the title as the 
world’s fastest typist prefers the 
Dvorak keyboard because you can 
type faster. If you’d like to experi- 
ment, you could redefine the CAPS 
LOCK translation table in the Dvo- 
rak layout and press CAPS LOCK 
to switch between the two. 

See program listing on page 101. @ 


WCCA PRESENTS 


SEPTEMBER 20 & 21 1986 
SHOW TIMES 10AM— 6PM 
LOS ANGELES AIRPORT HILTON 

CALL 213-410-4000 for hotel reservations 


EXHIBITS, EVENTS, AND DOOR PRIZES 
NATIONAL COMMODORE SPEAKERS 
SHOW SPECIALS & DISCOUNTS 

SEE THE LATEST INNOVATIONS IN 
HARDWARE/SOFTWARE TECHNOLOGY 
FOR THE COMMODORE MARKET 


The only West Coast exhibition and conference 
focusing exclusively on the AMIGA 
Commodore 128 PC and C-65 marketplace 


REGISTRATION FEES: ONE DAY $10.00 TWO DAYS $15.00 


| FOR MORE INFORMATION AND DETAILS CONTACT: © 
WEST COAST COMMODORE ASSOCIATION, INC. | 
P.O. BOX 210638 
SAN FRANCISCO, CALIFORNIA 94121 
(415)982-1040 BETWEEN 8AM-5PM PST 


$5 TALKING DISK 


OVER 100 WORDS in vocabularies that you can putinto 
your own programs! No extra hardware required. Sam- 
ple programs include: 


Talking four-function calculator — choose English, 
Spanish, or German. 

* Talking keyboard — letters and punctuation in 
English. 

Demonstration of voice editing. 

The $5 Talking Disk is available for Commodore 64, 128, 

Atari 800, 800XL, 130XE, and Apple Il+ (64K), lle, and IIc. 


If you want to make your own vocabularies, in any lan- 
guage or accent, then you must have a VOICE MASTER 
for processing speech input. VOICE MASTER lets you 
do much more: YOU CAN RECOGNIZE SPOKEN 
COMMANDS and WRITE MUSIC AS YOU HUM! And 
affordable too — under $90 including the headset and 
microphone. 


Send $5 for the talking disk. Prepaid orders only. 
Includes postage. ($7 outside USA, Canada, and Mex- 
ico.) Information on VOICE MASTER will accompany 
your disk. Or you can call or write for VOICE MASTER 
information separately. Please specify computer make 
and model with your order. 


° 
COVOX INC. 
675 Conger St., Dept. IN 


Eugene, OR 97402 
Telephone (503) 342-1271 
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128 Sprite Rotator 


are included. 


The Commodore 128 System Guide 
that comes with the computer does 
a pretty good job of describing the 
basics of using sprites. The built-in 
sprite editor is easy to use, and sav- 
ing and loading sprites is a snap. 
Moving sprites and detecting colli- 
sions can be fully automatic for 
realistic animation—without resort- 
ing to machine language, PEEKs, or 
POKEs. About the only thing you 
can’t do is rotate a sprite, But why 
would you want to any way? 

Let’s say’you’d like to write a 
program that displays a race car, 
viewed from above, The race car 
will be a sprite that you can easily 
create with the built-in sprite edi- 
tor. It will be driven around the 
screen by a joystick, using the JOY 
function to read the joystick and the 
MOVSPR command to move the 
sprite—a simple program that does 
a lot in just a few lines. But what 
happens when you change direc- 
tion? The race car just slides around 
the screen, always pointing in the 
same direction. Not very realistic. 
The SPRSAV command is the an- 
swer: It can instantly change the 
sprite to a different shape. The 
sprite shape can come from another 
sprite, a string variable or a string 
array. Thus, you can predefine a 
virtually unlimited number of 
sprite shapes for lightning quick re- 
call and display. 


A Demonstration 

For an example of this, type in Pro- 
grams 1 and 2. Program 1 is a sim- 
ple BASIC program that chooses 
one of eight different sprite shapes 
depending on which of the eight 
possible joystick directions is se- 
lected. Each of the eight sprite 
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Mike Tranchemontagne 


Here’s a clever technique for rotating sprites as 
they are moved on screen. Demonstration programs 


shapes represents a dragster facing, 
in one of the joystick directions. 
Program 2 isn’t really a program— 
it’s the shape definition data for the 
eight dragster sprites. The data 
must be entered with the 128 
““MLX” machine language entry 
program found elsewhere in this is- 
sue. Be sure you read and under- 
stand the MLX article before you 
begin entering the sprite data. 
When you run MLX, you'll be 
asked for a starting address and an 
ending address. The values for the 
sprite data are as follows: 

Starting address: 0E00 

Ending address: OFFF 

After you’ve entered all of the 
sprite data, be sure to use the MLX 
Save option to save the data to disk 
with the filename DRAGSTER.SPR, 
You must use this name so that Pro- 
gram 1 can find the file (see line 50 
of Program 1). Now load and run 
Program 1 and see what how much 
more realism you can achieve with 
sprite rotation. 

Lines 10-40 of Program 1 ini- 
tialize the graphics display. Line 50 
loads the file created by Program 1. 
The BLOAD command, as used for 
sprite shape disk files, loads data 
into the 128 memory area reserved 
for the eight sprites. In BASIC 7.0, 
the sprites always get their shape 
data from this memory—one shape 
per sprite. If BLOAD were the only 
way to change a sprite’s shape, 
changing sprite shapes would be a 
slow process. Instead, line 90 
DiMensions a string array to hold 
eight sprite shapes, and line 100 
uses the SPRSAV command (a truly 
versatile command) to define the 
string array contents—the eight dif- 
ferent views of our race car. (The 


commands in line 50, 90, and 100 
could be repeated with other sprite 
shape data files and other string ar- 
rays to define as many sprite shapes 
as needed—limited only by the 
amount of memory in bank 1] avail- 
able for strings.) Line 110 and 120 
turn on and position the car to 
about center screen. Lines 130 thru 
140 form a loop which repeats until 
the fire button is pressed. The inner 
loop (lines 140 to 180) executes 
only when the joystick is moved off 
center. The joystick direction (JS$) 
is used to select the sprite shape 
(line 160) and one of the eight 
movement subroutines (line 170). 
Program 3, “Sprite Rotator,” 
rotates any sprite shape for you. All 
you have to do is define the first 
sprite shape and Sprite Rotator 
does the rest. Although you don’t 
need to know how Sprite Rotator 
works to use it, you may find some 
of the following techniques useful. 
The 90-degree and 45-degree rotate 
subroutines (lines 410 and 500) are 
greatly simplified by the use of the 
graphics screen as a scratch pad 
memory. In line 580, GSHAPE 
stamps the image of the sprite 
shape to be rotated. Thus the 
RDOT(2) function (line 450 or 540) 
can address the sprite shape data in 
simple x,y coordinates. (These two 
lines were much more complicated 
when the rotation computations 
were performed on direct memory 
addresses.) The DRAW commands 
create the rotated shape below the 
original and the SSHAPE com- 
mand at line 620 saves it to S$. 
After all eight shapes are ready, the 
subroutine at line 680 will display 
the BSAVE command for you—edit 
the filename and press RETURN to 
save your work. You can also use 
SPRDEF (the built-in sprite editor) 
to touch up any of the sprites before 
saving. 
See program listings on page 102. @ 


Kaleidoscope Revisited 


W. M. Shockley 


Here’s an updated version of a popular 1985 
Gazette program that turns your computer into an 
ever-changing kaleidoscope of shape and color— 
all under your control. This newer version adds 
sound, several more controls, and an option to get 
a printout on any Commodore or Commodore- 
compatible printer. For the 64, Plus/4, 16, and 


vic. 


The October 1985 issue of COM- 
PUTE’s GAZETTE included an inter- 
esting graphics program titled 
“Kaleidoscope.” It turned the 64, 
Plus/4, 16, and VIC into a highly 
entertaining and colorful kaleido- 
scope with various speed and com- 
plexity controls. ‘Kaleidoscope 
Revisited” adds sound, a few more 
controls, and a printer option, but 
you don’t need the original ‘Kalei- 
doscope” to use it. The original pro- 
gram has been incorporated into 
this updated version. 


Getting Started 

After typing in the version for your 
computer, save a copy. To use it, 
load it and type RUN. You're pre- 
sented with a self-explanatory in- 
struction screen which lists all the 
available functions and the corre- 
sponding keys. At this point, press 
any key to get started. The H (for 
Help) key can be pressed at any 
time during the program to get back 
to the help screen. 

Kaleidoscope makes ideal pat- 
terns for quilt squares, paper snow- 
flakes, or artistic designs. The new 
printer option allows you to save 
them. Also added to the original 
program is an option to select the 
character you want to comprise the 
pattern. Press P and you'll be 
prompted for an input. Type the 
screen code (1-255) of the character 
you want, (These codes are listed in 
the 64, Plus/4, and VIC user man- 
uals.) A random character is chosen 


if you press R. Repeated R’s make 
fascinating, patterns. 


Printing Options 

The printout option is selected by 
pressing SHIFT-P for a small copy, 
or SHIFT-D for a copy double width 
and double length, making it four 
times as large. A printout can be 
made only of a black-and-white 
pattern (selected by pressing B). As 
written, the program works with 
the Commodore 1525, MPS-801, 
and MPS-803 printers. If you owna 
Commodore 1526 or MPS-802 print- 
er, a few line changes are necessary, 
If you have a 64, delete lines 1090- 
1150, Plus/4 and 16 users should 
delete lines 1050-1110, and VIC 
users should delete lines 950-1010. 
Then—regardless of which of the 
above computers you're using— 
add these lines to the program to 
adjust it for the 1526 or MPS-802: 
DK 1208 OPENG ,4,6:PRINT#6,CHRS 
(22) :CLOSE6 :OPEN4 , 4:F0 
RG=OTORR 

IF FGTHENFORF=1T02 :PRIN 
T#4 ,CHRS(14); 
FORN=SS+G*CCTOSS+G*CC+ 


EEK (N) 
D15)=1THENPRINT# 


HK 1210 


FM 1226 


xQ 1230 


4a"V"; 
AH 1248 IP(QAND15)<>1THENPRINT 
#4," "5 


JD 1256 NEXTN:PRINT#4 : I FFGTHEN 
NEXTP 

NEXTG : FORN=1T04 : PRINT? 
4:NEXT:CLOSE4 :OPEN10,4 
110 :PRINT#16:CLOSE10 


BJ 1276 FG=0:RETURN 


The S key toggles on and off 
the sound option. The remainder of 


PB 1266 


This pattern was created simply by run- 
ning the program. None of the extra fea- 
tures are in effect. 


The “H" and spade graphics character 
were selected with a new program 
option—choosing the characters you 
want to make the pattern, 


A more complex pattern is selected with 
the function keys. 


the options are those found in the 
original “‘Kaleidoscope’’—and are 
obvious from the help screen. The 
additions make an already interest- 
ing program even more flexible and 
entertaining. 

See program listings on page 103. @ 


COMPUTE!'s Gazette August 1986 75 


DOWEL BASIC 


Jay A. Reeve 


This short but powerful utility grace- 
fully removes Commodore's “two 
screen lines only” programming re- 
striction. Included are versions for the 
Commodore 64, Plus/4, and 16. 


How often have you hit the two- 
line squeeze while programming? 
Your BASIC statement won't quite 
fit into what's left of the two lines 
allowed by the Commodore screen 
editor. You go back and change full 
keywords to abbreviations—it still 
doesn’t fit. You could simply move 
the last statement to the next line, 
except that it follows an IF-THEN 
statement. 

Next, you replace the state- 
ment with GOTO and guess at a 
line number that you hope won’t be 
in the way later on, Then you re- 
type the statement on the new line 
(how did that go again?) and try to 
recall the logic you were using for 
the program. You're left with a feel- 
ing that your program has just lost a 
little of its elegance. 


Ending The Squeeze 

“BASIC Line Extender” is a utility 
for BASIC programmers that allows 
you to add to the end of any line in 
your program. You're still limited to 
entering two screen lines at a time, 
but you can build up program lines 
which take six or more screen lines 
to list. Once entered, these extend- 
ed lines will save, load, list, and run 
properly whether or not BASIC Line 
Extender is active. 

Although BASIC Line Extend- 
er can be used to extend any pro- 
gram line, it’s most valuable for 
continuing IF-THEN statements, 
allowing you to handle an error, for 
instance, on the same line in which 
it is detected. It’s also good for add- 
ing descriptive REM statements to 
program lines, and for creating ex- 
tra-long DATA lines or ON-GOTO 
statements. When memory is at a 
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premium, an extension saves at least 
four bytes over starting a new line. 


Preparing BASIC 

Line Extender 

The program itself is short and con- 
tains some machine language in the 
form of DATA statements. Type it 
in and be sure to save a copy before 
running it—the program will erase 
itself after creating and activating 
the machine language routine. 

In the Commodore 64 version, 
line 10 protects a space for the ma- 
chine language program by lower- 
ing the pointer to the top of BASIC 
by 256 bytes. If you'd like to locate 
BASIC Line Extender elsewhere in 
memory, replace the value for the 
variable AD in line 10 with the 
starting address you want. 

To disable BASIC Line Extend- 
er: POKE772,124:POKE773,165. 


Creating Extensions 

An extension is a line to be added to 
the end of a program line already in 
memory, Enter the extension with 
the same line number as the line to 
which it will be added. The first 
character after the line number will 
be one of three signal characters 
which never begin a normal BASIC 
line: a colon (:), a quote mark (’’), or 
a British pound sign (£). 

1, When the extension begins 
with a new statement, follow the 
line number with a colon, The co- 
lon will be included in the extended 
line as a statement divider. If you 
enter the line, 10 PRINT’ THIS IS A 
LINE”, it will list normally. Next 
enter the line, 10 :PRINT“AND ITS 
EXTENSION” and the listing will 
read, 10 PRINT’ THIS IS A LINE- 
’“PRINT“AND ITS EXTENSION”, 

2. When the separation falls 
between quotes (in a PRINT state- 
ment or string definition), the origi- 
nal line must not have a closing 
quote mark. (BASIC does not re- 
quire close-quotes at the end of a 


BASIC Line Extender 


line anyway.) The extension line, 
however, must begin with a quote 
("), which will be omitted from the 
extended line. Enter 20 PRINT 
“THIS IS A LINE followed by 20 “ 
AND ITS EXTENSION” and the 
listing will show 20 PRINT’THIS 
IS ALINE AND ITS EXTENSION”. 

3. To continue in mid-state- 
ment, begin the extension line with 
the British pound character. This 
signal character, of course, will not 
be included in the program. Enter 
15 A=A+B then 15 £*256 to get 15 
A=A+B*256, A statement may be 
broken and continued at any point 
except within a BASIC keyword. 
(BASIC stores and uses keywords 
as single-byte tokens. Extensions 
are tokenized separately, so the to- 
kenizing routine would have no op- 
portunity to recognize a keyword 
that was partly in the original line 
and partly in the extension.) Watch 
carefully for split keywords, as they 
will appear correct in listings but 
will cause syntax errors or, worse, 
erroneous results when the pro- 
gram is run. Numbers and variable 
names may be broken: 25 SYS49 and 
25 £152 will result in 25 SYS49152. 


If you prefer to use a different 
signal character (other than £), try 
replacing the number 92—at the end 
of line 60 in the 64 version or near 
the beginning of line 220 in the 
Plus/4 and 16 version—with 170 
(for +), 95 for (+), or 173 for (/). 

You can, if you like, add exten- 
sion after extension—the tokenized 
line may be up to 244 bytes long, If 
an extension would cause this limit 
to be exceeded, a STRING TOO 
LONG ERROR will be returned, 
leaving the line unchanged. The 
trade-off for this dramatic increase 
in flexibility is some difficulty in 
editing. 


Editing Extended Lines 
If you ever use abbreviations for 
BASIC keywords, you know that 


line listings sometimes run over 
onto a third line, and that run-over 
lines can be difficult to edit. The 
extra-long lines generated with 
BASIC Line Extender may be no 
easier to edit, but in most cases 
they'll be no more difficult either. 
List the extended line and re-enter 
it, two screen lines at a time, by 
using abbreviations to shrink the 
lines enough to insert the line num- 
ber and the appropriate signal char- 
acter, being careful to reassemble 
any split keywords before entering 
and making necessary changes as 
you go. 

If you anticipate needing to 
edit extended lines, you may wish 
to enter them first as partial lines 
with different, very high line num- 
bers (you can even include the sig- 
nal characters, so long as a line of 
that number does not already exist), 
then combine them by changing 
the line numbers. To edit, you can 
list the partial lines, make any 
changes, and recombine them by 
again replacing the line numbers. 
When the program is completed, 
the partial lines can easily be de- 
leted from the end. 

You no longer need to count 
spaces, refer to lists of abbrevia- 
tions, and retype statements that 
won't fit. Activate BASIC Line Ex- 
tender at the start of each program- 
ming session and let your creative 
logic flow—and forget about the 
two-line squeeze. 

See program listings on page 102. @ 


Gopy-1571 


‘SUPER FAST DISK COPY PROGRAM 
* USE 1 OR 2 DRIVES (15707571) 
* COPY TIME: FULL = 2 Min, BAM=23 Sacs-2 Mi, 
* MAKES 1 AND 2 SIDEO COPIES 
# AUTOMATIC FORMATTING DURING COPY 
* GREAT FOR MAKING FAST MULTIPLE COPIES. 
+ PACKED WITH GREAT FEATURES 
\BSOLUTELY NO HAROWARE TO INSTALL. 
HE MOST RELIABLE FAST COPIER ON THE MARKET 
NECESSITY FOR ALL SERIOUS 1571 OWNERS 
NEW & HOT! ORDER YOURS TODAY! 


Copy-1541 


SUPER FAST DISK COPY PROGRAM 


* USE 1 OR 2 DRIVES (1547s or 1570/1871's) 

* COPY TIME: FULL=2 Min, BAM=23 Secs-2 Min, 
* WILL ALSO RUN IN 1570/571 ORIVES! 

* AUTOMATIC FORMATTING DURING COPY 

* GREAT FOR MAKING FAST MULTIPLE COPIES 
* PACKED WITH GREAT FEATURES 


* ABSOLUTELY NO HARDWARE TO INSTALL 
* THE MOST RELIABLE FAST COPIER ON THE MARKET 
* DONT BE FOOLED BY THE LOW PRICE 

THIS ONE IS VASTLY SUPERIOR! 


BES 323 eck $1995 


Fast-Leap/Save 


# LOADS/SAVES PROGRAMS LIGHTNING FAST 
# NO MORE LONG DELAYS WAITING FOR 
YOUR PROGRAMS TO BE LOADED OR SAVED 


+ LOADSISAVES UP TO $1995 


oS 393 eck $2995 
POWERHOUSE 


* SPEEDFORMAT (TAKS 1-40) 

FORMAT FULUMALF TRK, PARTIAUFULL DISK 
WRITES PROPER BLOCKS WIBAM & DIRECTORY 
9 Secs.8 Secs. WVERIFY 

FORMAT MULTIPLE DISKS 


5:10 TIMES FASTER, 


* DISKMON 
RUW TRACK, SECTORS, HEADERS 

CREATE YOUR OWN HEADERS & HIDDEN ID'S. 
EDIT ML PROGRAMS RIGHT ON DISK 

fea | * DRIVEMON 


YW DAVE MEMORY IN HEX OR 
$1595 | eens Seneewenien trun #2996 


ESSENTIALS fF 


* RENUMBER * AUTOBOOT  DE.NEW 
* DATAMAKER » UNSCRATCH 
* FILE LOCK APPENDER. 

# FILE COPY (incl rel) 


TO ORDER gree 
1-813-792-5300 a= 
* FAST 
SHIPMENT 
* FAST UPS "as 
DELIVERY MM be RS LIF 


All programs 
listed in this 
magazine are 
available on the 
GAZETTE Disk. 
See details 
elsewhere in 
this issue. 


Protect your back issues of COMPUTE! 
in durable binders or library cases, 
Each binder or case is custom-made 
in flag-blue binding with embossed 
white lettering. Each holds a year of 
COMPUTEI. Order several and keep 
your Issues of COMPUTE! neatly or- 
ganized for quick reference. 
(These binders make great 
gifts, tool) 


Cases: (Please add $2.50 per unit for orders 


outside the U.S.) 


Binders 

$8.50 each; 
3 for $24,75; 
6 for $48.00 


$6.95 each; 
3 for $20.00; 
6 for $36.00 


Send in your prepaid order with the 
attached coupon 


ee a 
Mail to: Jesse Jones Industries, P.O. Box 5120, 
Dept. Code COTE, Philadelphia, PA 19141 
Please send me COMPUTE! O cases 
Enclosed is my check or money order for $ 
only.) 
Name 
Address 
City 
State 


Satisfaction guaranteed or money refunded. 
Pease alow 4-6 wooks for delivery 


O binders. 
(U.S. funds 
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simple answers 
© COMMON Guesuions 


Each month, COMPUTE!’s GAZETTE 
tackles some questions commonly 
asked by Commodore users. If you 
have a question you'd like to see an- 
swered here, send it to this column, 
c/o COMPUTE!s GAZETTE, P.O. Box 
5406, Greensboro, NC 27403. 


e Phones have it, clocks have 
it, radios have it, auto-dialers have 
it, and newer cars have it. But per- 
sonal computers don’t have it— 
and they need it more than the 
rest. Why haven’t manufacturers 
incorporated or made available 
backup power supplies to safe- 
guard against memory loss? 


A. There are battery-backup 
power packs available for some 
computers, mainly the IBM PC. But 
they tend to be expensive and are 
designed to work only for short peri- 
ods. The idea is to give you enough 
time to save your program before 
powering down, not to continue op- 
erating on batteries indefinitely. 

The problem is that regular 
memory chips consume much more 
power than most batteries can de- 
liver for an extended period of time. 
All of the other battery-backup de- 
vices you mention consume very 
little power. There's no way you 
could power a typical personal 
computer on a handful of penlight 
or flashlight batteries. 

Portable laptop computers, 
such as the TRS-80 Model 100, get 
around this problem by using spe- 
cial memory chips called CMOS 
(Complementary Metal Oxide 
Semiconductor) chips. CMOS chips 
consume much less power than 
regular chips, but also cost a lot 
more. Your Commodore 64 or 128 
might be two or three times more 
expensive if it were built with 
CMOS technology. And even with 
CMOS memory, a laptop such as 
the Model 100 cannot run for more 
than a day or so ona set of batteries. 
This makes it considerably more ex- 
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pensive to operate than a conven- 
tionally powered computer. 

If CMOS chips become cheap- 
er, they may find their way into 
more desktop computers. Until 
then, the best way to avoid power- 
outage anxiety is to save your data 
often and keep plenty of backups. 


e Inthe March 1986 “Simple 
Answers To Common Questions” 
a reader asked why a piece of 
disk-based commercial software 
would load on a Commodore 64 
system at the store but not at 
home on his own system. You 
suggested that perhaps his disk 
drive was misaligned. I have en- 
countered this frustrating prob- 
lem more than once, and it was 
caused by having a printer 
plugged into the disk drive and 
left turned off. Either turning the 
printer on or unplugging it solved 
the problem. I’ve found that Mov- 
ie Maker, Cell Defense, and some 
older versions of SpeedScript 
won't load properly if the printer 
is plugged in and turned off. 


A. We still suspect that drive 
misalignment is the most likely 
source of the reader's difficulties 
with commercial software, but a 
few other users may encounter the 
situation you suggest. The printer 
interfaces used to connect most 
third-party printers draw power 
from either the cassette port or a 
joystick port. Such interfaces re- 
main on and may cause problems 
by attempting to respond to com- 
mands on the serial bus when the 
printer is off (even if the command 
is intended for the disk drive). This 
is more likely with commercial 
products which reprogram the disk 
drive for faster loading and/or for 
copy-protection purposes; Speed- 
Script does not reprogram the disk 
drive and is not copy-protected, so 
we don’t know why it should cause 
problems, Still, if this simple solu- 


Tom R. Halfhill, Staff Editor 


tion works, it is worth the try. 


Q. I have often seen programs 
with DATA statements strung to- 


gether, and would like to know 
how the computer knows which 
DATA statements go with which 
READ statements. 


A. Very simple. The first READ 
statement in a program begins 
fetching data from the first DATA 
statement in the program. It contin- 
ues reading from the DATA state- 
ments in sequence until it has 
fetched all the data it needs, or until 
there are no more DATA state- 
ments. (In the latter case, the pro- 
gram stops with an OUT OF DATA 
error.) Here’s an example: 

10 FOR N=1 TO 5:READ A:NEXT 

20 FOR N=1 TO 4:READ A:NEXT 

30 DATA 1,2,3,4 

40 DATA 5,6,7,8,9 

Line 10 contains the program’s 
first READ statement, so it begins 
reading from the program’s first 
DATA statement at line 30. Line 10 
loops five times, reading all four 
items of DATA in line 30, then con- 
tinues to line 40 and reads the first 
data item there. Line 20 contains 
another READ statement, and it 
starts reading where the previous 
READ left off. In this case, it begins 
with the second item in the DATA 
statement at line 40. It loops four 
times, reading the rest of the data in 
line 40. Just remember that a pro- 
gram can safely read fewer data 
items than are contained in DATA 
statements, but cannot try to read 
more data items without causing an 
OUT OF DATA error. 

If you want your program to 
start reading from the first DATA 
statement again, use a RESTORE 
statement. The next READ after a 
RESTORE acts just like the first 
READ in the program: It starts at 
the first item in the first DATA 
statement. This lets a program use 
the same data more than once. @ 


COmpuLine) 
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families 


Fred D'lgnazio 
Associate Editor 


We've all heard how it’s good to 
write using words that evoke vivid 
images—ripening pumpkins, boom- 
ing thunderstorms, hot freshly 
baked bread, creaking doors, and 
spinning carousels. It’s because 
these words trigger our readers’ 
sense of smell, sight, hearing, 
touching, etc. The words recall ex- 
periences from the readers’ memo- 
ties and allow them to vicariously 
experience a new event through 
their own imagination. 

But which comes first—imagi- 
nation or words? Do we imagine 
something first, and then tell others 
what we have imagined? Or, as my 
mother used to say, do we set our 
mouth in motion before we put our 
mind in gear? 

Flannery O'Connor once wrote, 
“I write because I don’t know what 
I think until I read what I say.” 

In my career as a writer I’ve 
discovered the same thing. 
Thoughts pop into my head all the 
time, but the thoughts are little 
more than fireflies flitting aboutin a 
darkened sky. It’s only when I write 
my thoughts down that I clearly 
perceive what they are and why 
they are meaningful. 

I’ve learned that in trying to 
communicate my thoughts to other 
people I am also learning to imag- 
ine things more vividly myself. If I 
can’t state something briefly and 
clearly, the chances are it’s because 
my image of it is incomplete, fuzzy, 
or muddy. The writing—rewriting, 
editing, and revising—process is a 
way for me to learn a subject well 
enough to communicate its essence 
to someone else—and to myself, 

So writing—or communicat- 
ing—is also imagining; they go 
hand in hand. But what kind of 
imagining am I actually doing? 

How does your imagination 


work? Do you imagine in words? 


Lists? Do your thoughts take the 
form of old black-and-white mov- 
ies? Are they Technicolor extrava- 
ganzas, complete with Dolby 
sound? Or perhaps they are more 
like my little fireflies. 

I know how I imagine, and it’s 
not in words, It’s in images, emo- 
tions, and sensual feelings—smells, 
sounds, muscular contractions, sen- 
sations of being hot, cold, hungry, 
or excited—a whole symphony of 
little feelings and impressions that 
combine to form a single thought. 
Even a simple thought. 

But I can’t express the thought 
in this raw form; I have to translate 
the thought into words. This is a la- 
borious and time-consuming pro- 
cess. The computer can help us 
translate our thoughts into words. 
But, up until now, that’s all it has 
been—a thought-to-word transla- 
tor. Think of how much more valu- 
able it would be if we could use it as 
a medium for expressing our 
thoughts directly—as images, 
sounds, voices, scenes, events—as 
well as in words. If we could do 
this, we would be using the com- 
puter as a hotline to our imagination. 
And by encouraging us to commu- 
nicate audiovisually, it could en- 
tich, strengthen, and develop our 
imagination. 

Up until now, computers have 
communicated other people's 
imaginations to us audiovisually, 
but, with rare exceptions, they have 
not given us the ability to commu- 
nicate at this level ourselves. Or 
even to imagine at this level. But in 
another year or two, multimedia 
computing will be here. We will 
have optical read-write discs that 
will let us cut and paste images, 
sounds, music, voices, words, fig- 
ures—you name it, We will all have 
the chance to become multimedia 
thinkers and communicators using 
our imagination processors. 

That technology has not yet ar- 
rived. But we don’t have to wait. 


Computers And The 
Audiovisual Imagination 


We can use computers along with 
other devices—cassette recorders, 
VCRs, and video cameras. We can 
create pictures and words on the 
computer, music and voices on the 
cassette recorder, and combine 
them all on a videotape and play 
them back on a VCR. We can sup- 
plement the computer's images with 
images shot with a video camera. 

My children (Catie, 10, and 
Eric, 7) and I are doing this now. 
We recently created a computer 
animation of a black hole, then 
added music from the soundtrack 
of the movie Jaws and Catie’s narra- 
tion of the life cycle of black holes. 
Now we are working on a movie 
about a creek we discovered behind 
our house that we call “Big Creek.” 
We’re using computer paint and 
animation programs to produce a 
map of Big Creek and the titles, 
credits, and graphics for our movie. 
We have combined these with nar- 
rations and lots of video shots of us 
actually exploring Big Creek. And 
there’s a story line, too: how Big 
Creek is being affected by a hous- 
ing development going up along- 
side it. 

How would you use a com- 
puter as an imagination processor? 
Please write me, care of COMPUTE!’ 
GAZETTE. You can communicate 
your ideas in words. But I’d also 
love to see some videos, audio 
tapes, cartoons, and drawings. You 
can use your computer as a multi- 
media tool to express your imagina- 
tive ideas. In the next century, 
multimedia communicators and 
multimedia thinkers will be in great 
demand. We can all get started 
learning how to think, communi- 
cate, and imagine at this level now. 

@ 
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If you've discovered a clever time- 
saving technique or a brief but 
effective programming shortcut, 
send it to “Hints & Tips,” c/o 
COMPUTE!’s GAZETTE. If we use 
it, we'll pay you $35. Due to the 
volume of items submitted, we re- 
gret that we cannot reply individ- 
ually to submissions. 


Simulating PRINT-AT 
Hue Thao 


Some BASICs have a PRINT-AT or 
PRINT@ command which allows 
you to position a message any- 
where on the screen simply by 
specifying the row and column 
where you want it printed. The 128, 
Plus/4, and 16 have CHAR, which 
works like a PRINT-AT. The CHAR 
command can be used on the nor- 
mal text screen (40 or 80 columns) 
or on a hi-res screen. 
Unfortunately, the 64 and VIC 
don’t have a BASIC keyword for 
positioning the cursor, There is, 
however, a machine language Kernal 
routine to move to a given location, 
and it’s easy to call from BASIC. 
You don’t need to know any ma- 
chine language to use the PLOT 
routine, you just use a few POKEs 
and a SYS, Try typing the following 
program (for 64 and VIC only): 
16 PRINT CHR$(147): REM CLEAR 
(SPACE } SCREEN 
20 POKE781,15: REM ROW 
30 POKE782,4: REM COLUMN 
48 POKE783,48: REM CLEAR CARRY 
5@ SYS65526: REM PLOT ROUTINE 
60 PRINT"ROW 15 COLUMN 4" 


The first column on the screen 
is numbered 0 (not 1, as you might 
expect), so you're allowed to use 
column numbers from 0-39 on the 
64 or 0-21 on the VIC. Likewise, 
the rows can be in the range 0-24 
(64) or 0-22 (VIC). 

The next time you're thinking 
about printing 19 cursor down 
characters and 15 cursor rights to 
print something in the right place 
on the screen, remember the Kernal 
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PLOT routine. It might save you 
some time. 


Combining Two Programs 
Donald E. Fulton 


The March “Hints & Tips” con- 
tained a useful technique for merg- 
ing two programs on the 128. 
Here’s a way to append two pro- 
grams on other Commodore ma- 
chines, including the 64, Plus/4, 
16, and VIC. It works with disk 
drives and tape drives. 

Load the first program into 
memory. Find out where the BASIC 
program area begins by entering 
the following line which prints the 
contents of the start-of-BASIC 
pointer: 

PRINT PEEK(43), PEEK(44) 


Write down the two numbers, 
On the 64, they should be 1 and 8. 
VIC values will vary, depending on 
how much memory expansion is 
present. The Plus/4 and 16 may 
have one of two values, depending 
on whether you've used the graph- 
ics area. Owners of the Plus/4 and 
16 should type GRAPHIC CLR 
before using the PEEKs above to 
make sure there's no memory set 
aside for a hi-res screen. 

Next, type the following line, 
which calculates the ending ad- 
dress for the BASIC program: 

X = PEEK(45) + 256*PEEK(46): PRINT X 


If the start of BASIC is moved 
up to this location—the end of the 
first program—you can load a sec- 
ond program to the new (higher up) 
memory address and then move the 
start of BASIC back to where it was 
originally. The second program will 
be added to the end of the first. But 
there’s a catch: The start of BASIC 
should be moved to two locations 
below the current end-of-BASIC. 
Otherwise, the two zeros that mark 
the end of a program will get in the 
way. Enter this line next: 


POKE 44, INT((X —2)/256): POKE 43, 
(X—2) AND 255: NEW 


| Simulating PRINT-AT and APPEND 
Ws 


Load the second program from 
tape or disk. This program must 
have higher line numbers than the 
first program, so you may have to 
use a renumbering utility (or re- 
number it by hand). Finally, restore 
the original start-of-BASIC pointer: 
POKE 43,1: POKE 44,8 


If you have a Plus/4, 16, or 
VIC, substitute the values PEEKed 
from 43-44 when you first started. 
The new program can now be saved. 

The same technique will work 
on the 128 if you use 45-46 instead 
of 43-44 for the start-of-BASIC 
pointer and 4624-4625 (in place of 
45-46) for the end-of-BASIC pointer. 
The method described in the March 
issue is preferable, though, because 
it does a true merge of two pro- 
grams, rather than a simple append. 

There's an easier way to ap- 
pend two programs if you have ac- 
cess to the SpeedScript word 
processor. It’s based on the same 
principle as the PEEKs and POKEs 
above. 

Load and run SpeedScript and 
use it to load the first program as if 
it were a text file. It’s a program, not 
a SpeedScript file, so it will look very 
strange. Pay no attention to its ap- 
pearance. Without changing any- 
thing, go to the end of the file. 
There you'll see three commercial- 
at signs (@@@). These are the 
three zeros at the end of the pro- 
gram. Delete the last two (at the 
very end of the file), so only one re- 
mains. Now, without moving the 
cursor, load the second program 
into SpeedScript. If you want to ap- 
pend a third program, this process 
can be repeated. 

Save the resulting file and exit 
SpeedScript. Since the combined 
program has been saved from high 
in memory, you'll have to load it 
with a ,8 instead of ,8,1. If you LIST 
it, you should see that the second 
program has been appended to the 
first. @ 


Todd Heimarck 
Assistant Editor 


Two decades ago, words like sub- 
routine and debug were jargon, part 
of a secret language spoken only by 
a tiny cabal of programmers. As 
more and more people have bought 
home computers, these words and 
others have become fairly com- 
monplace. There’s still a sort of se- 
cret knowledge, though: machine 
language (ML). To BASIC program- 
mers, terms like raster interrupt 
may not make a lot of sense. Let's 
take a look at what an interrupt is 
and see one in action. 

Machine language isn’t espe- 
cially complex. In fact, you're very 
limited in what you can do. Imag- 
ine writing a program with only 
PEEK, POKE, AND, OR, IF-THEN, 
GOSUB, and GOTO. You're also 
able to add, subtract, multiply by 
two, and divide by two. The proper 
combination of small ML com- 
mands can accomplish amazing 
things, however, just as thousands 
of small bricks can be made into a 
mansion. 

As one illustration of BASIC’s 
speed, type in and run the follow- 
ing one-line program for the 64. It 
switches the border color between 
white and red as fast as possible: 


10 POKE53280,1:POKE53280,2:GOT 
019 


Press STOP to stop the pro- 
gram. Now try this ML program 
(also for the 64): 


1@ FORJ=49152T049164 :READA:CK= 
CK+A: POKES, A:NEXT 

20 IFCK<>1788THENPRINT" PLEASE 
{SPACE}CHECKING YOUR TYPI 

3@ SYS49152 

100 DATA169,1,141,32,208,234,1 
69 

119 DATA2,141, 32,208, 208,243 


The machine language, slight- 
ly more than a dozen bytes long, is 
encoded in DATA statements. Press 


horizons 


RUN/STOP-RESTORE to turn it off. 

A TV screen is redrawn 60 
times a second, 262 screen lines 
(also called raster lines) at a time. 
Characters are eight lines tall, so 
the 25 rows need 200 lines, with 62 
left over for the top and bottom 
screen borders. Multiplying 60 
screens by 262 lines tells you that 
roughly 15,000 raster lines are 
drawn every second. If you look 
closely at the top or bottom border 
while the ML program is running, 
you'll see that the border color is 
changing approximately eight 
times per line, which means the 
machine language instructions to 
switch color are taking only about 
1/120,000 of a second. That's fast. 

Both the BASIC and ML pro- 
grams take over the 64 while 
they’re running. You can’t list a 
program or perform a calculation 
while either one is busy changing 
screen colors, Here’s where we call 
on a raster interrupt, which gives 
control of the computer back to us. 


Waiting For A Chance 

To Interrupt 

The 6510 chip, the brains of the 
Commodore 64, is built to run pro- 
grams. Once ina while, however, it 
must stop what it’s doing to interact 
with the outside world. Every sixti- 
eth of a second, the processor in the 
64, the 6510 chip, puts aside what 
it’s doing to read the keyboard and 
click the jiffy clock. 

But the 6510 can’t be trusted to 
automatically perform this task; left 
to itself it would continue running 
whatever program was in memory, 
ignoring the keys you might be 
pressing. So one of the CIA chips is 
entrusted with an alarm clock; 60 
times a second it has to remind the 
6510 that it’s time to do some 
things like checking the keyboard. 

This reminder is an interrupt 
request (IRQ) which diverts the pro- 
cessor from the main job of running 
a program for a short while. The 


What Is A Raster Interrupt? 


normal IRQ that checks for key- 
presses is invisible to BASIC and 
ML programmers. It’s automatic. 

There’s another sort of IRQ, 
one that’s programmable. The VIC 
chip, which handles everything 
that’s printed to the screen, can trig- 
ger an interrupt based on sprite col- 
lisions, light pen input, or the raster 
line currently being drawn. 

The raster interrupt program 
(in the Program Listings section) 
tells the VIC chip to wait for some- 
thing to happen on the screen 
before it asks the CIA chip to gener- 
ate an interrupt. Unlike the normal 
interrupt, which is based on a clock, 
araster interrupt sets an alarm to go 
off when a certain line of the screen 
is being drawn. At that point, the 
processor is told to go to a short ML 
program that changes the border 
and background colors, after which 
it returns to what it was doing. If we 
set the alarm to go off at several 
places on the screen, we can create 
zones of color, each with its own 
border and background color. In 
between interrupts, the processor 
can run regular BASIC programs. 

Being able to change the screen 
color might not seem like much, but 
there are several good uses for the 
raster interrupt technique. If you've 
ever seen a game that uses more 
than eight sprites, you’ve seen a 
raster interrupt in action. The idea 
is the same as the color bar pro- 
gram: You set the interrupt to hap- 
pen at a certain line on the screen. 
Then the sprite pointers are 
changed, so the video chip thinks 
the sprites are at a new location. 
The split screen graphics modes on 
the 128 (GRAPHIC 2 and GRAPH- 
IC 4) also rely on a raster interrupt. 
These two commands allow you to 
create a hi-res screen on the top 
portion of the screen, with a text 
area down below. 
See program listing on page 108. @ 
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Daisy Wheel Printer 
Silver Reed America has introduced the 
EXP420, a letter-quality daisy wheel 
printer that prints 12 characters per sec- 
ond. The EXP420 works with almost 
any computer, including the Commo- 
dore 64 and 128, and offers super and 
subscripts, bold and shadow print, 
auto-underline, 10 and 12 pitch selec- 
tion, bidirectional printing, and a built- 
in Commodore and parallel interface. 
The printer also comes in a serial 
model. 

TheEXP420 printer has a suggested 
retail price of $299.95. 

Silver-Reed America, Inc., 19600 S. 
Vermont Ave., Torrance, CA 90502. 
Circle Reader Service Number 219. 


Spelling Aid 

Whole Brain Spelling from SubLOGIC 
teaches you a method for learning how 
to spell. It includes 200 ten-word lists in 
six different categories—general, a 
child’s garden of words, fairy tale, sci- 
entific, medical, and business. Color 
graphics provide positive feedback, For 
the Commodore 64/128 with one disk 
drive and color monitor. 

Whole Brain Spelling is available for 
$29.95 plus $2.00 shipping and 
handling. 

SubLOGIC Corporation, 713 Edge- 
brook Dr, Champaign, IL 61820. 

Circle Reader Service Number 220. 


Disk Cataloger 
Fastcat/64 is a machine language disk 
cataloger for the Commodore 64, SX- 
64, and 128, It supports multiple cata- 
logs, each containing up to 1200 
entries, Fastcat/64 also provides auto- 
matic catalog updating, onscreen cata- 
log review, status reports during 
cataloging, and a variety of ways to ex- 
tract hardcopy listings of catalog en- 
tries. This software is not copy 
protected. Requires disk drive; printer 
and color monitor are optional. 

Fastcat/64 is available only by mail 
order for $20.00 . A demonstration ver- 
sion is available for $5.00, 

R. J. Biancosino, 38 S. Ogle Ave., 
Wilmington, DE 19805. 
Circle Reader Service Number 221. 
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KETEK's Command Center for the 
Commodore 128 computer system. 


Command Center For 
Commodore 128 

Commodore 128 owners can now con- 
solidate their peripherals into one 
custom-designed unit recently released 
by KETEK. 

The Command Center is a space- 
saving cabinet that comes complete 
with its own built-in drive/CPU cool- 
ing fan, telephone/modem control 
switch, master AC switch, and AC 
power strip with six outlets. A useful 
device for uncluttering and upgrading 
the appearance of the 128 workspace, 
the Command Center is designed to 
contribute to the longevity of a C-128 
system by protecting the system from 
overheating. In addition, the Command 
Center offers line noise filtering and 
protection from voltage spikes and 
power surges. 

Suggested retail price for the Com- 
mand Center is $149.95 plus $3.50 
shipping and handling. 

KETEK, P.O. Box 203, Oakdale, 1A 
52319. 

Circle Reader Service Number 222. 


Programming Tool Kit, Compiler 
SM Software has introduced Gnome 
Speed, a BASIC compiler for the Com- 
modore 128 computer, and Gnome Kit, a 
programming tool kit for the Commo- 
dore 64 and 128 computers. 

Gnome Speed compiles virtually all 
BASIC 7.0/2.0 commands and func- 


tions, Programs can be as large as 1,999 
lines; and have up to 8000 jumps and 
500 distinct variable names. A number 
of BASIC commands, such as IF- 
THEN-ELSE, are enhanced. The com- 
piler checks for coding errors, and has 
an option to list to the printer. Backups 
are possible, since the program is not 
copy-protected, 

Gnome Kit is a machine code pro- 
gram that contains programming, struc- 
turing, and debugging aids for the 64 
and 128 (64 and 128 versions on same 
disk). It contains not only BASIC aids, 
but also a full assembler/disassembler 
and editor for machine language pro- 
grammers, The program’s B Facility lets 
you restructure your BASIC programs 
with RENUMBER, MERGE, and AP- 
PEND commands. FIND revises a pro- 
gram by finding variables, commands, 
text strings, and line references. HELP 
and TRACE debugging commands are 
included. 

The M Facility in Gnome Kit lets 
you create machine language programs 
with the assembler/disassembler. Code 
can be input/output as hexadecimal/ 
decimal, byte, low/high byte, or ASCII. 
Extensive restructuring and debugging 
tools are also included. The F Facility, 
for advanced programmers, offers di- 
rect access to disk drive memory and 
the disk itself. You can extend DOS 
with user routines and restore corrupt- 
ed disks, among other functions. Gnome 
Kit is not copy-protected. 

Suggested retail prices are $39.95 
for Gnome Kit and $59.95 for Gnome 
Speed. 

SM Software, Inc., P.O. Box 27, 
Mertztown, PA 19539-0027. 

Circle Reader Service Number 223. 


Software Programs 
From Mindscape 
Several new software packages for the 
Commodore 64 have been introduced 
by Mindscape. Bop’n Wrestle is a three- 
dimensional combat sports simulation 
for pro wrestling enthusiasts. Using 
either a joystick or the keyboard, one or 
two players battle for the World Cham- 
pionship Belt. 

As Captain Johnny Jimbo-Baby 
McGibbits, you must fly your Whiz- 
bang Gizmo DHX-1 Attack Chopper 


through enemy air space to reach tar- 
gets designed to destroy the Mad Lead- 
er’s military force. Three missions 
combine helicopter flight simulation 
and military ground action. You are 
aided by your flight manual, secret 
communication code names, mission 
information, weapons, film, and pocket 
edition of The McGibbits Guide to 
Ground Installation Infiltration. 

The object of Spell of Destruction is 
to enter the Castle of Illusions, find the 
Prime Elemental, and destroy it with a 
single spell. Your quest takes you 
through over 70 locations with scrolling, 
3-D graphics and music. 

Great British Software, Volume I 
combines three games on one disk. In 
Brian Bloodaxe you invade Britain and 
seek the crown jewels among over 100 
puzzle-filled screens. You travel 
through 45 caverns of death and 400 
scrolling screens to fight the Monster of 
the Apocalypse in Revelation, And in 
Quovadis, you battle the Dark Lord to 
free humankind . 

Bop’n Wrestle, Infiltrator, and Spell 
of Destruction have a suggested retail 
price of $29,95 each. Great British Soft- 
ware has a retail price of $14.95. 

Mindscape, Inc., 3444 Dundee Rd., 
Northbrook, IL 60062. 

Circle Reader Service Number 224. 


Hardware From 
Master Software 


Master Software has introduced four 
hardware interconnection products for 
Commodore personal computers. You 
can place port devices in more conven- 
ient locations with Modem Master, a 
four-foot extender for the user port of 
the VIC-20, Commodore 64, SX-64, 
Plus/4, and 128. The extender is made 
of tangle-proof ribbon cable and has 
keyed connectors to prevent incorrect 
installation, 

The Modem Master Plus has all the 
features of Modem Master, plus a buff- 
ered system reset switch that resets the 
Commodore 64 and SX-64 and VIC-20 
in case of computer lock-up. There are 
programs included to help recover the 
BASIC program in memory at the time 
of the lockup. 

You can use two printers with one 
computer when you use Y-Not, a six- 
foot Y cable. Y-Not contains one male 
six-pin plug and two female six-pin 
jacks that fit the six-pin serial port of all 
Commodore computers. 

The 80 Mono Cable lets you use 
the Commodore 128’s 80-column mode 
without an RGB monitor. This six-foot 
cable plugs into the RGBI port of the 
computer and the video input jack of 
the monitor to produce an 80 column 
monochrome display on any composite 
color or monochrome monitor. 


List price for Modem Master is 
$29.95 and $34.95 for Modem Master 
Plus. Y-Not retails for $15.00 and the 
80 Mono Cable is priced at $9.00. 

Master Software, 6 Hillery Ct., Ran- 
dallstown, MD 21133. 

Circle Reader Service Number 225. 


128 Software From Abacus 
Abacus Software has released two new 
software packages for the Commodore 
128. Cadpak-128 is the 128 version of 
Cadpak-64, a computer-aided design 
(CAD) drawing and design package. 
Cadpak-128 features accurately scaled 
output, accupoint positioning, four- 
screen detail, and support of any high- 
quality lightpen. 

Super C Version 3 is the 128 version 
of Super C for the C-64. This C language 
includes complete implementation of K 
& R definition, graphics and math li- 
braries, RAM disk support, Unix-like 
shell, and machine language interface. 

Cadpak-128 and Super C Version 3 
retail for $59.95 each. 

Abacus Software, P.O. Box 7219, 
Grand Rapids, MI 49510. 

Circle Reader Service Number 226, 


Timeworks’ 128 Spreadsheet 
Timeworks has released an enhanced 
version of Swiftcalc 128 for the Commo- 
dore 128. This electronic spreadsheet 
for home and business use features 
high resolution graphics, swiftkey mac- 
ros, swift-DOS, and multi-level sorting. 
It can be interfaced with Timeworks’ 
Word Writer 128 and Data Manager 128 
and uses an 80-column monitor. 

Suggested retail price for Swiftcalc 
128 is $69.95. Backup disks for Time- 
works registered users are available for 
$14.70. 

Timeworks, 444 Lake Cook Rd., Deer- 
field, IL 60015. 
Circle Reader Service Number 227. 


New Software From Firebird 
Three new software packages are now 
available from Firebird. Colossus Chess 
IV is a two- and three-dimensional dis- 
play chess program that supports all 
rules of chess, including under-promo- 
tions, the fifty-move rule, and all draws 
by repetition. There are multiple diffi- 
culty levels as well as provisions for 
saving the games and recreating previ- 
ous board settings, The package in- 
cludes an instruction manual and 
classic game libraries on disk. A disk 
drive is required; joystick is optional. 

The Arc of Yesod is a moon-based 
action adventure in which the player 
must overcome numerous obstacles in 
order to locate and destroy a device 
buried in the lunar caverns, 


The companion adventure to The 
Arc of Yesod, The Nodes of Yesod, also 
takes place on the moon. There are sev- 
eral twists to this adventure on the op- 
posite side of the flippy disk. Both lunar 
adventures include animation, sound, 
and music. Joystick is optional. 

Colossus Chess IV has a suggested 
retail price of $34.95. The Arc of Yesod 
and The Nodes of Yesod retail for $19.95 
on one disk. 

Firebird Licensees, 74 N. Central 
Ave., Ramsey, NJ 07446. 
Circle Reader Service Number 228, 


The Print Shop Companion 

The Print Shop Companion from Broder- 
bund Software adds even more design 
tools to Bréoderbund’s The Print Shop. 
New features include the multi-tool 
Graphic Editor+, a font editor, a border 
editor, Tile Magic, Creature Maker, Cal- 
endar Maker, and a fast load utility. 
This enhancement adds 12 new fonts, 
50 new borders, 24 numeric graphics, 
and a set of bonus graphics to The Print 
Shop. 

The Print Shop Companion for the 
Commodore 64/128 requires 64K 
memory, a disk drive, joystick, and The 
Print Shop. 

Suggested retail price is $34.95. 

Broderbund Software, Inc., 17 Paul 
Dr., San Rafael, CA 94903-2101, 

Circle Reader Service Number 229, 


Bowling Game From Access 
Compete in a bowling league with up to 
eight different bowlers with Tenth 
Frame from Access Software. This 
bowling simulator incorporates com- 
puterized scoring, sound effects, graph- 
ics, 3-D animation, and multiple levels 
of play into a bowling game for the 
Commodore 64/128, 

Tenth Frame is on disk and a joy- 
stick is required. 

Suggested retail price is $39.95, 

Access Software, Inc., 2561 S, 1560 
West, Woods Cross, UT 84087. 
Circle Reader Service Number 230. 


Two-On-Two Basketball Action 
Teamwork is the key in GBA Champion- 
ship Basketball: Two-on-Two from Ga- 
mestar. This basketball simulator 
allows one or two players to play teams 
of two against each other or the com- 
puter, Each team can take part in prac- 
tice sessions, two-on-two competition, 
or league competition in the Gamestar 
Basketball Association. 

A two-man team consists of a pri- 
mary player who is given a playing 
style by the computer user and a sec- 
ondary player drafted from a list of ten 
basketball superstars. Court action is 
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enhanced by graphics and background 
crowd sounds, Game statistics are com- 
piled on the sports page of the Gamestar 
Gazette. 
Available for $34.95 for the Com- 
modore 64/128. 
Gamestar/Activision, Inc., 2350 
Bayshore Frontage Rd., Mountain View, 
CA 94043. 
Circle Reader Service Number 231. 


Little Black Book 


Data Management 
Computer Management Corporation's 
NamePro is a database management 
program that lets you maintain a list of 
up to 500 names with addresses, phone 
numbers, and up to five comments per 
name on the Commodore 64. You can 
sort the names into eight different cate- 
gories and print the list onto cards, 
mailing labels, regular paper, or a spe- 
cial pocket-size phone book. A vinyl 
cover is included for your phone book. 

A utility program subdivides the 
database if you need to store more than 
500 names. 

NamePro retails for $24.95, 

Computer Management Corporation, 
P.O. Box 4819, Walnut Creek, CA 94596. 
Circle Reader Service Number 232. 


Machine Language Editor And 
Assembler For C-128 


Hughes Associates has announced the 
availability of the Freedom Assembler 
and Freedom Editor for the Commodore 
128. 

The Freedom Assembler-128 is a 
symbolic assembler, Its cartridge format 
allows you to leave it plugged in all the 
time if you like, even while other pro- 
grams are running. The assembler takes 
advantage of the 128’s speed and mem- 
ory capacity. It retails for $49.95. The 
Freedom Editor-128 is a companion edi- 
tor program that starts where the Com- 
modore 128 leaves off. All the resident 
128 commands plus 25 more -- like 
COPY, BINARY, RESAVE, and 
SCREEN DUMP -- simplify program- 
ming chores. It retails for $29.95. 

Both programs are also available in 
Commodore 64 format. The Freedom 
Assembler-64 is $39.95, and the Freedom 
Editor-64 is $29.95. 

Hughes Associates, 45341 Harmony 
Ln., Belleville, MI 48111. 

Circle Reader Service Number 233. 


3-D Adventure Game For 
Commodore 64 

Mindscape has announced the release 
of Fairlight, a three-dimensional graph- 
ic adventure game for the Commodore 
64. The game takes place in the mythi- 
cal Land of Fairlight, a once beautiful 
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and radiant place that has lost its magic. 
As Ivar, it is your mission to find the 
powerful Book of Light and restore the 
Land of Fairlight to its former glory. 
Fairlight will be available in August at a 
suggested retail price of $29.95. 
Mindscape, Inc., 3444 Dundee Rd., 
Northbrook, IL 60062. 
Circle Reader Service Number 234. 


Computerized Guitar Tutorial 
GIT guitar school instructors Don Mock 
and Dan Kessler have developed Big 
Ears INTERVALS, an ear training pro- 
gram for aspiring guitarists. Accompa- 
nied by a 20-page instructional booklet, 
the program was designed to be an ef- 
fective learning tool for guitarists of all 
levels of ability. 

Guitar neck fingerboards display 
the intervals, and the 64’s 3-voice inter- 
nal synthesizer or MIDI-out capabilities 
perform them, The user inputs an an- 
swer with joystick or keyboard, and re- 
ceives an immediate CORRECT or 
INCORRECT display. To make track- 
ing progress easy and effective, a score 
graph displays intervals tested and the 
total score. Diatonic, chromatic, and 
compound intervals are taught. 

Big Ears INTERVALS is available 
for $35 plus $1.25 postage and 
handling. 

MI Instructor Series, P.O. Box 80541, 
Seattle, WA 98108. 

Circle Reader Service Number 235. 


Foreign Language Data Disks 
For Remember! 

DesignWare has released a French vo- 
cabulary disk and Spanish vocabulary 
disk for use with Remember!. Each disk 
includes over 650 words. 

Remember! is a learning tool that 
helps students study and learn facts, 
lists, or relationships in almost any sub- 
ject through various study options built 
into the program. While students can 
easily enter their own study material, 
DesignWare has received numerous re- 
quests for supplemental data disks, in- 
cluding foreign language vocabulary 
and SAT preparation. Other data disks 
are expected to be available later this 
year. 

Each of the foreign language disks 
retails for $19.95. 

DesignWare, 185 Berry St., San Fran- 
cisco, CA 94107. 

Circle Reader Service Number 236. 


Solve The Puzzle And 

Win $50,000 

Rush Ventures, the North American 
distributor of Great Britain’s popular 
Domark computer games, has an- 
nounced a contest in conjunction with 


the U.S, launch of the company’s game 
line, 

Eureka!l, the first game to be re- 
leased here, consists of five linked ad- 
ventures that take the player ona 
journey through time, starting with 
prehistoric times, on to Nero’s Rome, 
Arthurian Britain, World War II and 
Colditz prison, and winding up in the 
present with a 007-type spy adventure. 
The object of the game is to defeat ene- 
mies in each adventure and save the 
world from destruction. 

But solving the adventures is only 
part of the challenge. Eureka! comes 
with an illustrated booklet containing 
riddles that give clues to the final solu- 
tion. With every riddle unraveled, the 
player builds up a secret telephone 
number. The first person to discover it 
and dial it wins $50,000. (A similar con- 
test was held in the U.K., anda 15-year- 
old boy solved it.) The contest starts 
July 4, 1986, and runs for twelve 
months, 

Suggested retail price for Eureka! is 
$24.99. Rush Ventures will also be re- 
leasing several other Domark titles in 
upcoming months, including View To A 
Kill, Friday The 13th, Codename MAT II, 
and Gladiator. All are expected to retail 
for $22.99, 

Rush Ventures, Inc., P.O, Box 8079, 
Blaine, WA 98230 
Circle Reader Service Number 237. 


Murder Mystery On 

The Mississippi 

Activision has released Murder On The 
Mississippi, a graphics-and-text adven- 
ture set on a Mississippi riverboat in the 
19th century. As Sir Charles Foxworth, 
a famous British sleuth who discovers 
that a murder has been committed, it is 
your job to find the murderer before the 
boat docks in New Orleans. 

Adam Bellin, the program’s devel- 
oper, has designed a unique user inter- 
face that is completely joystick-driven. 
During the Delta Princess’ three-day 
journey down the Mississippi, Fox- 
worth and his constant companion Re- 
gis Phelps must explore the riverboat’s 
four decks and 24 rooms where they 
will cross-examine eight colorful char- 
acters. Building the case correctly—ex- 
amining evidence and thoroughly 
questioning suspects—is a must, since a 
false accusation may result in serious 
consequences for Sir Charles. 

Murder On The Mississippi is avail- 
able for the Commodore 64 at a sug- 
gested retail price of $34.95. 

Activision, Inc., 2350 Bayshore 
Frontage Rd., Mountain View, CA 94043. 
Circle Reader Service Number 238. 


@ The first portion of “Disk File 
Archiver’ (December 1985) was 
scrambled; the program does not 
work as listed. We regret any incon- 
venience this may have caused our 
readers. Herewith the correct list- 
ing. Type it in with the current ver- 
sion of MLX, using a starting 
address of 0801 and ending address 
of 09B8. 


801:0B G8 GB BG 9E 32 30 36 EC 
9809:31 G8 BB OO AX BA BD 82 C4 
9811:02 26 18 OB 4C 94 E3 A2 CC 
@819:4C AB OB BE 32 G3 BC 33 4B 
@821:03 68 20 CF FF 20 CF FF EB 
9829:A9 BD 26 D2 FF 26 CF FF A2 
@831:48 20 D2 FF 68 C9 GD DG 1D 
@839:F4 20 68 69 A2 8B 6C BB 59 
@841:03 AY AD AG G9 20 1E AB OC 
9849:4C 3A 08 AS BB 85 G2 AS O7 
@851:BC 85 
@859:ED F5 AS BB 20 
@861:57 89 20 CF FF C9 32 
869:83 4c 3A @8 C9 36 DB B2 51 
@871:28 CF FF C9 33 D@ AE 26 7¢ 
@879:CF FF C9 OD DB FI 26 68 92 
9881:89 AY 28 AD 27 99 3C B3 AD 
9889:88 18 FA A4 64 CO OB BO 75 
9891:BG 88 Bl 62 99 3F 63 99 DB 
9899:4E 93 88 10 F5 AI 2E 8D E3 
@8A1:49 03 8D 58 63 AI 34 BD G3 
@8A9:4A 03 AO 02 BY BB B9 99 GF 
@8B1:3C 93 88 10 F7 AY GF A2 D9 
@8B9:3C AG O3 20 BD FF 20 57 F7 
@8C1:09 28 68 9 AB G2 BO B5 G2 
@8C9:09 99 3C 83 99 4B 3 88 OS 
@8D1:10 F4 
68D9:34 8D 4A 63 85 FE A9 33 8F 
@8E1:8D 59 03 AO 1E A2 3C AD IE 
@8E9:93 26 BD FF 28 57 89 20 CB 
@8F1:CF FF C9 32 96 62 C6 FE SF 
@BF9:26 68 89 20 71 G9 CE 4A EE 
@981:03 CE 59 83 AD 59 63 C9 46 
9969:38 D@ DB AI 20 BD 58 3 BB 
6911:8D 59 63 AS 04 18 69 12 6B 
6919:A2 3C AB O3 20 BD FF 26 E7 
9921157 89 28 68 69 AI BB B5 20 
8929:9D AQ 8B AG G9 20 1E AB AG 
@931:A5 FE 20 D2 FF A9 G2 AB 5A 
9939:A2 08 
0941:3F AS 93 26 BD FF AQ 
6949:A6 2D A4 2E 20 D8 FF AS 7F 
9951:88 85 9D 4C 5B G8 AD GF DA 
6959:A2 68 AB 20 BA FF 20 CO AC 
O0961:FF A2 OF 26 C6 FF 68 AD AD 
6969:0F 26 C3 FF 26 CC FF 60 18 
6971:A9 OB 20 BD FF 26 57 09 768 
979:26 CF FF C9 OD D@ F9 20 EB 
6981:68 99 6H OB 52 30 3A 53 31 
9989:30 3A @D 91 52 45 4E 41 82 
6991:4D 45 1D 1D 1D 1D 1p 1D C5 
9999:1D 1D 1D 1D 1D 2E 96 OD AS 
@9A1:46 49 4C 45 4E 41 4D 45 SE 
99A9:26 54 4F 4F 26 4C 4F 4E DE 
69B1:47 BD OB BB BB OB OB OB AA 


bug-swatttar 


e@ ‘The Coordinator’’ (March) 
works as described. Program 5, 
“Save/Load Subroutine’’ does not 
properly preserve the VIC chip reg- 
isters when files are saved to disk, 
however. This does not directly af- 
fect graphics files loaded from with- 
in The Coordinator. 

Adding line 292 and modify- 
ing line 315 as shown below re- 
stores the option of directly loading 
picture files created by The Co- 
ordinator. 


MF 292 PRINT" SCREEN RETURNS T 
© DISPLAY FOR SAVE":FOR 
TD=0T02006 :NEXT:GOSUB18 
5 

KF 315 SF=1:GOSUB165 :SF=@:PRIN 

TE$" {DOWN} [RIGHT] {RVS] 

{SPACE }SAVE COMPLETED 

(ofr }":FORTD=8T02006 :NE 

XT:GOTO348 


Once the save/load routine 
has been fixed, you can use the fol- 
lowing stand-alone program to load 
and display any Coordinator pic- 
tures saved to tape or disk. This 
routine may be used as is, without 
any need to load The Coordinator 
or the ancillary programs. (Tape us- 
ers should change the 8 to 1 in line 
20.) 


GG 1 ON-(A=1)-2*(A=2)-3*(A=3)- 
4*(A=4)GOTO20,20,30,49 

BH 2 PRINTCHR$(147):INPUT" 
{DOWN} {RIGHT JENTER COORD 
(SPACE }] FILENAME"; NS 

CD 3 PRINT" (DOWN } {RIGHT} PRESS 
(SPACE]M IF MULTICOLOR, N 
IF Nor" 

AF 4 GETRS$:IFR$<" 


“ORRS> "N"THE 


BH 5 M=ASC(R$)-76:PRINT" {DOWN} 

(RIGHT}PRESS BANK (6,1,2, 

3)" 

CH 6 GETBA$:IFBAS=""THENG 

EF 7 BA=ASC(BA$):IFBA<480RBA>5 
1 THENG 


=A+1:PS=STR$(A) :P$=RIGH 
TS$(P$,1) :LOADPS$+N$,8,1 

EA 30 IF A=3ANDM=1THEN20 

EK 46 POKE56576, (PEEK(56576)AN 
D252)OR(3-BA) 

AE 58 GOTOSG 


Modifications and Corrections 


© Some readers have had difficulty 
using the Find (SHIFT-F) command 
in ‘‘Mini-Filer.’’ The program 
searches forward in memory, so 
before using Find, you should go to 
the first record in the file. SHIFT-F 
will find the first record that match- 
es. If you use the command a sec- 
ond time, it will find the second 
record, and so on. The reason Mini- 
Filer doesn’t automatically start at 
the beginning of the file is that if it 
did so, it would find only the first 
match (the first Johnson entry, but 
not any other Johnsons, for 
example). 

Reader Timothy W. Williams 
has suggested that the screen color 
combination is not ideal, especially 
if you use a television. To change 
Mini-Filer, he suggests POKEing 
2062 with your preferred border 
color and POKEing 2084 with a dif- 
ferent screen color. 


@ A portion of line 0869 is missing 
from “Meteor Strike” (July): 


9869:09 DB 18 7D 36 98 BD OB 75 


@ An extraneous question mark ap- 
pears in “Directory Filer” (April). 
The last command on line 1040 
should be GOTO 840, not GOTO 
8420. Also, some readers were sty- 
mied by the {STOP} in line 880. 
This is the unshifted RUN/STOP 
key. When typed inside quotation 
marks, {STOP} appears as a re- 
versed letter C, Finally, Plus/4 us- 
ers who were unable to type {F1}, 
because of the Plus/4’s predefined 
function keys, should use the KEY 
command to change fl to CHR$ 
(133). For more details about KEY, 
see this month’s “Gazette Feed- 
back.” 


e “TurboCopy” (April) works as 
published with the 1541 disk drive, 
for which it was designed, but does 
not work with the 1571. e 
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COMPUTE"s GAZETTE 
Author Guide 


Here are some suggestions which serve to improve 
the speed and accuracy of publication for prospective 
authors. COMPUTE!’s GAZETTE is primarily interested in 
new and timely articles on the Commodore 128, 64, 
Plus/4, 16, and VIC-20, We are much more concerned 
with the content of an article than with its style, but 
articles should as be clear and well-explained as 
possible. 

The guidelines below will permit your good ideas 
and programs to be more easily edited and published: 

1. The upper left corner of the first page should 
contain your name, address, telephone number, and 
the date of submission. 

2. The following information should appear in the 
upper right corner of the first page. If your article is 
specifically directed to one model of computer, please 
state the model name. In addition, please indicate the 
memory requirements of programs. 

3, The underlined title of the article should start 
about 2/3 of the way down the first page. 

4. Following pages should be typed normally, 
except that in the upper right corner there should be 
an abbreviation of the title, your last name, and the 
page number. For example: Memory Map/Smith/2. 

5. All lines within the text of the article must be 
double- or triple-spaced. A one-inch margin should be 
left at the right, left, top, and bottom of each page. No 
words should be divided at the ends of lines. And 
please do not justify. Leave the lines ragged. 

6. Standard typing or computer paper should be 
used (no erasable, onionskin, or other thin paper) and 
typing should be on one side of the paper only 
(upper- and lowercase). 

7. Sheets should be attached together with a 
paper clip. Staples should not be used. 

8. If you are submitting more than one article, 
send each one in a separate mailer with its own tape 
or disk. 

9, Short programs (under 20 lines) can easily be 
included within the text. Longer programs should be 
separate listings. It is essential that we have a copy of 
the program, recorded twice, on a tape or disk. If your 
article was written with a word processor, we also 
appreciate a copy of the text file on the tape or disk. 
Please use high-quality 10 or 30 minute tapes with 
the program recorded on both sides. The tape or disk 
should be labeled with the author’s name and the title 
of the article. Tapes are fairly sturdy, but disks need 
to be enclosed within plastic or cardboard mailers 
(available at photography, stationery, or computer 


86 COMPUTE!'s Gazette August 1986 


supply stores). 

10. A good general rule is to spell out the numbers 
zero through ten in your article and write higher 
numbers as numerals (1024). The exceptions to this 
are: Figure 5, Table 3, TAB(4), etc. Within ordinary 
text, however, the zero through ten should appear as 
words, not numbers, Also, symbols and abbreviations 
should not be used within text: use “and” (not &), 
“reference” (not ref.), “through” (not thru). 

11. For greater clarity, use all capitals when refer- 
ring to keys (RETURN, CTRL, SHIFT), BASIC words 
(LIST, RND, GOTO), and the language BASIC. Head- 
lines and subheads should, however, be initial caps 
only, and emphasized words are not capitalized. If 
you wish to emphasize, underline the word and it will 
be italicized during typesetting. 

12. Articles can be of any length—from a single- 
line routine to a multi-issue series. The average article 
is about four to eight double-spaced, typed pages. 

13, If you want to include photographs, they 
should be either 5X7 black and white glossies or 
color slides. 

14. We do not consider articles which are submit- 
ted simultaneously to other publishers. If you wish to 
send an article to another magazine for consideration, 
please do not submit it to us. 

15. COMPUTE!'s GAZETTE pays between $70 and 
$800 for published articles. In general, the rate reflects 
the length and quality of the article. Payment is made 
upon acceptance, Following submission (Editorial 
Department, COMPUTE!'s GAZETTE, P.O. Box 5406, 
Greensboro, NC 27403) it will take from two to four 
weeks for us to reply. If your work is accepted, you 
will be notified by a letter which will include a con- 
tract for you to sign and return. Rejected manuscripts 
are returned to authors who enclose a self-addressed, 
stamped envelope, 

16. If your article is accepted and you have since 
made improvements to the program, please submit an 
entirely new tape or disk and a new copy of the article 
reflecting the update. We cannot easily make revisions 
to programs and articles. It is necessary that you send 
the revised version as if it were a new submission 
entirely, but be sure to indicate that your submission 
is a revised version by writing, ‘Revision’ on the 
envelope and the article. 

17. COMPUTE!'s GAZETTE does not accept unsolicited 
product reviews, If you are interested in serving on 
our panel of reviewers, contact our Features Editor for 
details. 


‘Each month, COMPUTE!'s GAZETTE 
“publishes programs for the Com- 
modore 128, 64, Plus/4, 16, and 
VIC-20, Each program is clearly 
marked by title and version. Be sure 
to type in the correct version for 
your machine. All 64 programs run 
on the 128 in’ 64 mode. Be sure to 
read the instructions in the corre- 
sponding article. This can save time 
and eliminate any questions which 
might arise after you begin typing. 
We frequently publish two 
programs designed to make typing 
easier: The Automatic Proofreader, 
and MLX, designed for entering 
“machine language programs. 
When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex 
tremely sensitive to.errors, A 
mistyped number ina DATA state- 
ment can catise your machine to 
“Jock up’’ (you'll have no control 
over the computer), If this happens, 
the only recourse is to turn: your 
computer off then back on, erasing. 
whatever was in memory. So. be 
Sure to saved copy of your program 
before you run it. If your computer 
crashes, you can always reload the 
program and Jook for the error. 


{CLR} 
{HOME} 
{UP} 
{DOWN} 
{LEFT} 
{RIGHT} 


{RVs} 
{OFF} 

(BLK) 

{WHT} 
{RED} 
“(exny 


How To Type In 
COMPUTE!’s GAZETTE Programs 


Special Characters 

Most of the programs listed in each 
issue contain Special control charac- 
ters. To facilitate typing in any pro- 
grams. from the GAZETTE, use the 
following listing conventions. 

The most common type of con- 
trol characters in our listings appear 
as\ words within braces: {DOWN} 
means to press the cursor down 
key; {5 SPACES} ‘means to press 
the space bar five times. 

To indicate that a key should 
be shifted (hold down the SHIFT 
key while pressing another key), 
the character is underlined. For ex- 
ample, A means hold down the 
SHIFT key and press A, You may 
see strange characters on your 
screen, but that’s to be expected. If 
you find a number followed by an 
underlined key enclosed in braces 
(for example, {8 A}), type the key 
as many times as indicated (in our 
example, enter eight SHIFTed A‘s). 

Tfa key is enclosed in special 
brackets, & 9, hold down the 
Commodore key (at the lower left 
corner of the keyboard) and press 
the indicated character: 

» Rarely, you'll see'a single letter 
of the alphabet enclosed in braces, 


When You Read: 
{PuR} 
{GRN) 
{BLU} 
{EL} 


(nm) fa] 
(Ry 
CB) 
fm) 
(FS) 
(Fe) 
{F2) 
(8) 


S=EeRNNEo f 


——————_{ 


This can be entered on the Com- 
modore 64 by pressing the CTRL 
key while typing the Jetter in 
braces, For example, {A} means to: 
press CTRL-A, . 


The Quote Mode 
Although you can move the cursor 
around the screen with the CRSR 
keys, often'a programmer will want 
to move the cursor under program 
control, This is seen. in’ examples 
such as {LEFT} and {HOME} in. 
the program listings. The only way 
the computer can tell the difference 
between direct and programmed 
cursor control is the quote mode. 
Once you press the quote key, 
you're in quote mode. This mode 
can be confusing if you mistype a 
character and cursor left to. change’ 
it, You'll see a reverse video charac- 
ter (a graphics symbol for cursor 
left), In this case, you can use the. 
DELete key to back up and edit the 
line. Type another quote and you're 
out of quote mode, If things really. 
get confusing, you ‘can: exit quote 
mode simply by pressing RETURN. 
Then just cursor up to the mistyped 
line and fix it. 


When You Read: Press: See: 
ANS 
t suit] [t] 


For Commodore 64 Only 


= 
af 


{comMoDoRE| 
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The Automatic Proofreader 


Philip 1, Nelson, Assistant Editor 


“The Automatic Proofreader’ helps 
you type in. program listings for the 
128, 64, Plus/4, 16, and VIC-20 and 
prevents nearly every kind of typing 
mistake, 

Type in the Proofreader exactly as 
listed. Since the program can’t check it- 
self, type carefully to avoid mistakes. 
Don’t omit any lines, even if they con- 
tain unfamiliar commands, After finish- 
ing, Save a copy or two on disk or tape. 
before running it, This is important be- 
cause the Proofreader erases the BASIC 
portion of itself when you run it, leav- 
ing only the machine language portion 
in memory. 

Next, type RUN and press RE- 
TURN. After announcing which com- 
puter it’s running on, the Proofreader 
displays the message ‘‘Proofreader 
Active”, Now you're ready to type in a 
BASIC program. 

Every time you finish typing a line 
and press RETURN, the Proofreader 
displays a two-letter checksum in the 
upper-left corner of the screen, Com- 
pare this result with the two-letter 
checksum printed to the left of the line 
in the program listing. If the letters 
match, it’s almost certain the line was 
typed correctly. If the letters don’t 
match, check for your mistake and cor- 
rect the Jine, 

The Proofreader ignores spaces not 
enclosed in quotes, so you can omit or 
add spaces between keywords and still 
see a) matching checksum, However, 
since spaces inside quotes are almost al- 
‘ways significant, the Proofreader pays 
attention to them. For example, 10 
PRINT“ THIS IS BASIC” will generate 
a different checksum than 10 
PRINT’THIS ISBA — SIC”. 

A common typing error is transpo- 
sition—typing two successive charac- 
ters in the wrong order, like PIRNT 
instead of PRINT or 64378 instead of 
64738, The Proofreader is sensitive to 
the position of each character within the 
line and thus catches transposition 
errors. 

The Proofreader does not accept 
keyword abbreviations (for example, ? 
instead of PRINT). If you prefer to use 
abbreviations, you can still check the 
line by LISTing it after typing it in, 
moving the cursor back to the line, and 


pressing RETURN. LiSTing the line 
substitutes the full keyword for the ab- 
breviation and allows the Proofreader 
to work properly. The same technique 
works for rechecking, programs you've 
already typed in. 

If you're using the Proofreader on 
the Commodore 128, Plus/4, or 16, do 
not perform any GRAPHIC commands 
while the Proofreader is active. When 
you perform a command like GRAPH- 
IC 1, the computer moves everything at 
the start of BASIC program space—in- 
cluding the Proofreader—to another 
memory area, causing the Proofreader 
to crash, The same thing happens if you 
run any program with a GRAPHIC 
command while the Proofreader is in 
memory. 

Though the Proofreader doesn’t 
interfere with other BASIC operations, 
it’s a.good idea to disable it before run- 
ning another program. However, the 
Proofreader is purposely difficult to dis- 
lodge: It's not affected by tape or disk 
operations, or by pressing RUN/ 
STOP- RESTORE, The simplest way to 
disable it is to turn the computer off 
then on. A gentler method is to SYS to 
the computer's built-in reset routine 
(SYS 65341 for the 128, 64738 for the 
64, 65526 for the Plus/4 and 16, and 
64802 for the VIC). These reset routines 
erase any program in memory, so be 
sure to save the program you're typing 
in before entering the SYS command. 

Tf you own a Commodore 64, you 
may already have wondered whether 
the Proofreader works with other pro- 
gramming utilities like ““MetaBASIC.”” 
The) answer is generally yes, if you're 
using a 64 and activate the Proofreader 
after installing the other utility, For ex- 
ample, first load and activate Meta- 
BASIC, then load and run the 
Proofreader. 

When using the Proofreader with 
another utility, you should disable both 
programs before running a BASIC pro- 
gram, While the Proofreader seems un- 
affected by most utilities, there's no 
way to promise that it will work with 
any and every combination of utilities 
you might want to use, The more utili- 
ties activated, the more fragile the sys- 
tem becomes. 


The New Automatic Proofreader. 


10) VEC=PEEK (772) +256* PEEK (773). 
+10 HI=44 


20 PRINT “AUTOMATIC PROOFREADE 
R FOR ";:1F VEC=42364 THEN 
{SPACE}PRINT “C=64" 

3@) TF) VEC=50556 THEN. PRINT 
c-20" 

46. If VEC=35158 THEN GRAPHIC) OC) 
LR? PRINT. “PLUS/4)& 16" 

58 IF VEC=17165. THEN bO=45:HI= 
46:GRAPHIC CLR:PRINT"128" 
60 SA=(PEEK(LO)+256*PEEK(HI) )+ 

6:ADR=SA 

7® FOR J=0 TO 166:READ BYT:POK 
E ADR, BYT: ADR=ADR+1:CHK=CHK 
+BYT:NEXT \ 

80 IF CHK<> 20570 THEN PRENT. “* 
ERROR* CHECK TYPING IN DATA 
STATEMENTS" : END. 

96 FOR J=) 70 5:READ RF/LE,RE? 
RS=SA+RF>HB= INT(RS/256): LB= 
RS=(2567*HB) 

HK+RE+LF+HE: PORE. SATE, 

F,LB:POKE. SA+H, HB:NEXT 

CHK¢> 22054 THEN. PRINT." 
*ERROR* RELOAD. PROGRAM. AND. 
{SPACE} CHECK FINAL LINE“ ZEN 
D 

120 POKE SA+149,PEEK(?72)32POKE 
SA+150,PEEK(773) 

130 IF VEC=17165 THEN. POKE SA+ 
14,22:POKE SA+18,23POKESAt 
29,224: POKESA+139,224 

146, PRINT. CHRS (147); CHRS (12) 3" 
PROOFREADER ACTIVE": SYS.SA 

150) POKE HI, PEBK(HD) 4L3POKE. CP. 
EEK(LO)+256*PEEK(HL))—1,0:N 
EW 

160 DATA 120,169,73, 141, 4,316 
9,3,141,5.3 

170 DATA 88,960,165) 20,133,167, 
165,21,133,168,169 . 

188) DATA G,141,0,255)162,31,18 
1,199,257 ,227,3 

190) DATA 202,16,248,169,19) 32, 
210/255 ,169),18,32 \\ 

208 DATA 216,255,160,0,132,180 
+132,.176,136, 230,180 

218 DATA 208,185 ,0,2, 240, 46,20 
1/34, 2088, 722 

220 DATA 165,126, 73,255 )133)17 
6,104, 72,201, 32, 208 

230 DATA 7,165,176, 208, 3,104) 2 
08,226,104, 166,180 

240 DATA 24,165,167) 121,8,2)13. | 
3,167,165, 168,105 

259 DATA 0,133,168, 202,208) 239 
124,202,165, 167,69 

260. DATA 168,72,41,15,108)185) 
212,9432)218,255.0 

270 DATA 104,74, 74, 74,74) 16By 1 
85,211,3, 92,210 

280 (DATA. 255,162)31,189,227, 35 
149,199, 202,.16,248 

298 DATA 169,146 ,32,210,255, 76° 
786,137.65, 66,67 

368) DATA 68,69,70,71,72,74475, 
77,80,81,82,83,88 

318 DATA 13,2,7,167,31,32,151, 
116,117,151,12B,129, 167,136 


+137 \ @ 


“NI 
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Ottis Rs Cowper, Technical Editor 


“MLX'“is-a labor-saving utility that 
allows. almost fail-safe entry of 
machine language programs, Included 
are) versions for the Commodore 64 
and 128), 


Type in and save some copies of which- 
ever version of MLX is appropriate for 
your computer (you'll 'want to use it to 
enter future: ML programs from COM- 
PUTE!s GAZETTE). Program 1 is for the 
Commodore 64, and Program 2 is for 
the)128 (128) MLX:can also be used to 
enter.Commodore 64 ML programs for 
use in'64 mode), When you're ready to 
enter:an. ML. program, load: and. run 
‘MLX, It asks: you for a'starting address, 
and an ending address. These addresses 
appear in the article accompanying the 
MLX-format program listing you're 
typing, \\ 

If you’re unfamiliar with machine 
language, the addresses (and all other 
values you enter in MLX) may appear 
strange, Instead of the usual decimal 
numbers you're accustomed to, these 
numbers are in hexadecimal—a base 16 
numbering system commonly used by 
‘ML programmers, Hexadecimal—hex 
for Short—includes the numerals 0-9 
and’the letters ‘A-F, But don’t worry— 
‘even if you know nothing about ML or 
‘hex; you should have no trouble using, 
MLX. 


‘After you enter the starting and 
‘ending addresses, you'll be offered the. 
option of clearing the workspace. 
Choose this optioniif you're starting to 
enter'a new listing, If you're continuing 
a listing that’s partially typed from a 
previous session, don’t choose this 
option. 

‘A functions menu will appear, The 
‘first option in the menu is ENTER 
DATA, If you're just starting to type in 
a program, pick this. Press the E key, 
and’ type the first number in the first 
line of the program listing, If you've al- 
ready typed in part of a program, type 
the line number where you left off typ- 
sing at the end of the previous session 
(be'sure'to.load the partially completed 
program before you resume entry). In 
any case, make sure the address you en- 
“ter corresponds to the address of a line 
in the listing you are entering, Other- 
wise, you'll be unable'to enter the data 
correctly. If you pressed E by mistake, 
you can return to the command menu 
by pressing RETURN alone when 
asked forthe address, (You can get back 
tothe menu from most options by. 

[pressing RETURN with no other input) 


Machine Language Entry Program 
For Commodore 64 and 128 


Entering A Listing 
Once you're in Enter mode, MLX prints 
the address for each program line for 
you. You then type in all nine numbers 
on that line, beginning with the first 
two-digit number after the colon (:). 
Each line represents eight data bytes 
and. a checksum, Although an MLX- 
format listing appears similar to the 
“hex dump” listings from a machine 
language monitor program, the extra 
checksum number on the end allows 
MLX to check your typing. (Commo- 
dore 128 users can enter the data from 
an MLX listing, using the built-in moni- 
tor if the rightmost column of data is. 
omitted, but we recommend against it. 
It's much easier to let MLX do the proof- 
reading and error checking for you.) 
When you enter.a line, MLX tecal- 
culates' the checksum from the. eight 
bytes and the address and compares 
this value to the number from the ninth 
column. If the values match, you'll hear 
a bell tone, the data will be added to the 
workspace area, and the prompt for the 
next line of data will appear, But if MLX. 
detects a typing error, you'll hear a low 
buzz and see an error message. The line 
will then be redisplayed for editing, 


Invalid Characters Banned 

Only a few keys are active while you're 
entering data, so you may have to un- 
learn some habits. You do pot type 
spaces between the columns; MLX 
automatically inserts these for you. You 
do not press RETURN after typing the 
last number in a line; MLX automatical- 
ly enters and checks the line after you 
type the last digit. 

Only the numerals 0-9 and the let- 
ters A-F can be typed in. If you press 
any other key (with some exceptions 
noted below), you'll hear a warning 
buzz. To simplify typing, 128 MLX re- 
defines the function keys and + and — 
keys on the numeric keypad so that you 
can enter data one-handed. (The 64 
version incorporates the keypad modi- 
fication. from: the March 1986 “‘Bug-- 
Swatter column, lines 485-487.) In 
either case, the Keypad is active only 
while entering data. Addresses must be 
entered with the norma] letter and 
number keys, The figures below show 
the keypad configurations for each 
version: 

MEX checks for transposed charac- 
ters. If you're supposed to type in AO 
and instead enter 0A, MLX will catch 
your mistake, There is one error that 


64. MLX Keypad 


128 MLX Keypad 


A B Cc D 

(F1) | (F3) | (B5) | (F7) 

7 8 9 E 

) 

4 5 6 F 

ite] 

1 2 3 E 

N 

T 

E 

0 ° me 
Ss 


can slip past MLX: Because of the 
checksum formula used, MLX won't 
notice if you accidentally type FR in 
place of 00, and vice versa, And there’s 
avery slim chance that you could gar- 
blea line and still end up with'a combi-- 
nation of characters that'adds up to the 
proper checksum, However, these mis- 
takes should not occur if you take rea- 
sonable care while entering data. 


Editing Features 

To correct typing mistakes before fin- 
ishing a line, use the INST/DEL key to, 
delete the character ‘to the left:of the 
cursor. (The cursor-left key also de- 
letes:) If you mess up a line really badly, 
press CLR/HOME to start the line over: 
‘The RETURN: key: is also active, but 
only before any data is typed on a line. 
Pressing RETURN at this point returns 
you to the command menu, After you 
type a character of data, MLX disables 
RETURN until the cursor returns to the 
start of a line. Remember, you can press: 
CLR/HOME to quickly get to a line 
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number prompt, 

More editing features are available 
when. correcting lines in which MLX 
has detected an error. To make correc 
tions in a line that MLX has redisplayed 
for editing, compare the line on) the 
screen with the one printed in the list- 
ing, then moye the cursor to the mis- 
take'and type the correct key. The 
cursor Jeft and right keys provide. the 
normal cursor controls, (The INST/ 
DEL key now works as an alternative 
cursor-left key.) You cannot move left 
beyond the first character in the line, If 
you try to move beyond the rightmost 
character, you'll reenter the line. Dur- 
ing editing, RETURN is active; pressing. 
it tells MLX to recheck the line. You can 
press the CLR/HOME key to clear the 
entire line if you want to start from 
scratch, or if you want to get to'a line 
number prompt to usé RETURN to get 
back to the menu, 


Display Data 

The second menu choice, DISPLAY 
DATA, examines memory and shows 
the contents in the same format as the 
program listing (including the check- 
sum). When you press D, MLX asks you 
for a starting address. Be sure that the 
starting address you give corresponds 
to a line number in the listing. Other- 
wise, the checksum display will be 
meaningless. MLX displays program 
lines until it reaches the end of the pro- 
gram, at which point the menu is redis- 
played. You can pause the display by 
pressing the space bar. (MLX finishes 
printing the current line before halting.) 
Press space again to restart the display. 
To break out of the display and get back 
to the menu before the ending address 
is reached, press RETURN. 


Other Menu Options 


Two more menu selections let you save 
programs and load them back into the 
computer. These are SAVE FILE and 
LOAD FILE} their operation is quite 
straightforward. When you press S or L, 
MLX asks you for the filename. You'll 
then be asked to press either D or T to 
select disk or tape. 

You'll notice the disk drive starting 
and stopping several times during a 
load or save (Save only for the 128 ver- 


sion). Don’t panic; this is normal be- 


havior. MEX opens and reads from’ or 
‘Writes to the file instead of using the 
usual LOAD and SAVE commands 
(128 MLX ‘makes use of BLOAD), Disk 
users should also note that the drive 
prefix 0: is automatically added to the 
filename (line 750 in 64 MLX), so this 
should not be included when entering 
the name, This also precludes the use of. 
@ for Save-with-Replace, so remember 
to give each version you save a different 


name, The 128 version makes up for 
this by giving. you the option of scratch~ 
ing the existing Ge if you want to reuse 
a filename. 

Remember that MLX saves the en- 
tire workspace area from: the. starting, 
address to. the ending address, so. the 
save or load may take longer than you 
might expect if Vee ve entered only a 
small amount of data from a long list- 
ing. When saving. a partially completed 
listing, make\sure to note the address 
where you stopped typing so you'll 
know where to resume entry ‘when you 
reload. . 

~°MLX reports the standard disk or 
tape error messages if any problems are 
detected during the'save or load. (Tape 
users should bear in mind that Commo- 
dore computers are never able to detect 
errors duting.a save to tape.) MLX also 
has three: special load error messages: 
INCORRECT STARTING ADDRESS, 
which means: the file you're trying to 
load does not have the starting address 
you specified when you ran MLX; 
LOAD ENDED/AT address, which 
means the file you're trying to. load 
ends before the ending address you 
specified when you started MEX; and 
TRUNCATED AT ENDING AD- 
DRESS, which means the file you're 
trying to load extends beyond the end- 
ing address you specified when you 
started MLX. If you see one of these 
messages and feel certain that you've 
loaded the right file, exit and rerun 
MLX, being careful to enter the correct 
starting and ending ‘addresses, 

The 128 version also has a CATA~ 
LOG DISK option'so you can view the 
contents of the disk directory. before 
saving or loading. 

The QUIT menu option has the ob- 
vious effect—it stops MLX and enters 
BASIC. The RUN/STOP key is dis- 
abled,so the Q option lets you exit the 
program without turning off the com- 
puter. (Of course, RUN/STOP-RE- 
STORE also gets you out.) You'll be 
asked for verification; press Y to exit to 
BASIC, or any other key to return to the 
menu, After quitting, you can type 
RUN again and reenter MLX: without 
losing your data, as long as you don’t 
use the clear workspace option. 


The Finished Product 

When you've finished typing all the 
data foran ML program and saved your 
work, you're ready. to see the results. 
The instructions for loading and using 
the finished product vary from program 
to program. Some ML programs are de- 
signed to be loaded and run like BASIC 
programs, so. all you need to type is 
LOAD “filename”, (8 for disk (DLOAD: 
“filename®’ on the 128) or LOAD “file- 
name" for tape, and thensRUN. Such 


programs will usually have a starting 
address of 0801 for the 64 or 1C01 for 
the 128. Other programs must be re- 
loaded to specific addresses with a com- 
mand such as LOAD “filename’,8,1 for 
disk (BLOAD “filename” on the 128) or. 
LOAD “‘filename’,1,1 for tape, then 
started with a SYS to a particular mem- 
ory address. On the Commodore 64, 
the most common starting address for 
such programs is 49152, which corre- 
sponds to MLX address C000, In either 
case, you should always refer to the ar~ 
ticle which accompanies the ML listing, 
for information on loading and running 
the program, 


An Ounce Of Prevention 

By the time you finish typing in the data 
for a long ML program, you may have 
several hours invested’ in the project. 
Don’t take chances—use our ‘“Auto- 
matic Proofreader’’ to type the new 
MLX, and then test your copy thorough | 
ly before first using it to enter any sig- 
nificant amount of data, Make sure all 
the menu options work as they should: 
Enter fragments of the program starting 
at several different addresses, then use 
the Display option to verify that the 
data has been entered correctly, And be 
sure to test the Save and Load options 
several times to. ensure that you can re- 
call your work from disk or tape. Don’t 
Teta simple typing error in the new 
MLX cost you several nights of hard 
work, 


Program 1: MLX For Commodore 
64 


SS10 REM VERSION 1.1: LINES 8 
36,956 MODIFIED, LINES 4 
85-487. ADDED WY 
POKE 56,50:CLR:DIM INS, 
T,T¢A,B,AS/BS~A(7) NS 
C4=48 :CO=16:C7=7222=232 
4=256:25=255326=256227= 
127 
PA=PEEK(45)+Z6*PEEK (46) 
?BS=PEEK(55)+Z6*PEEK(56 
) :H$="01234567B9ABCDEF" 
RS=CHR$ (13) :LS=" (LEFT }" 
?S$="\":DS=CHRS (20) 22$= 
CHRS(0)27S$="{13 RIGHT)" 
§D=54272:FOR I=SD TO. SD 
423:POKE I, 0:NEXT:POKE 
{SPACE}SD#24,153POKE. 78 
8,52 

PRINT" {CLR)}"CHRS$ (142) CH 
R$(B) :POKE 53280,15:POK 
E 53281,15 

PRINT. TS" (RED) (RVS} 

{2 SPACES) £8 @3 

(2 SPACES} "SPC( 28)" 

{2 SPACES } {OFF} (BLU) ML 
Xx TI {RED} {Rvs} 

{2 SPACES}"SPC(28)" 

{12 SPACES) { BLU)" 
PRINT"{3\ DOWN} 

{3 SPACES]COMPUTE!'S MA 
CHINE LANGUAGE. EDITOR 
{3. Down)" 

PRINT" {BLKJSTARTING ADD. 


EK 100 


DM. 110 
cy 126. 
SB 136 


cq 148 


158 


168 


FR 170, 


JB 180 
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“GF 
oKR 
PG 


‘DR 


Gx 


CH 


cs 


198 
200 
218 


228 


238 
249 


258 
268 


278 


280 


298 
308. 


310, 


“320 


3398 


340, 
350 


388 


RESS£43"; :GOSUB360:SA=A 
D:GOSUB1940:IF F THENI8 


U) 

PRINT" {BLK} {2 SPACES}EN 
DING ADDRESSE43";:GOSUB. 
300 :EA=AD:GOSUB1030:1F 
(SPACEJF THEN199 


INPUT" {3) DOWN} {BLK} CLEA. 


R WORKSPACE. [¥/N]R49";A 
S:IF LEPTS(A$,1)<>"Y"TH 
EN220 

PRINT"{2 DOWN} {BLU} WORK 
ING...";:FORI=BS TO BS+ 
EA=SA+7:POKE I,0:NEXT:F 
RINT"DONE" 
PRINTTAB(18)"{2. DOWN) 
{BLK} {RVS] MLX COMMAND. 
(SPACE JMENU. [DOWN] £43": 
PRINT T$"{ RVSJE{OPP}NTE 
R DATA" 

PRINT T$"(RVSJD(OFF}ISP 
LAY DATA":PRINT TS" 
(RvS)L{OrF}OAD FILE" 
PRINT Senate LORE IAVE 
FILE":PRINT TS"{RVS} 
{orr}urr(2 DOWN} {BLK}" 
GET A$:IF AS=NS THEN25 
AeO:FOR I=] TO 5:1F AS= 
MIDS ("EDLSQ",I,1)THEN A 
=I: I=5 

NEXT:ON A GOTO420,619,6 
98, 700, 286:GOSUB1660 GO 


‘T0259 

PRINT" (RVSJ} QUIT. "2 INPU 
tT" (DOWN }E43ARE YOU SURE 
CY/NJ";AS21F LEFTS(AS, 
1) <>"¥"THEN226 

POKE SD+24,0+END 

INS=N$ :AD=0 : INPUTINS :IF 
LEN (INS) <>4THENRETURN 
BS=INS :GOSUB320 :AD=A: BS. 
=MID$( INS, 3) ;GOSUB320:A. 
D=AD*256+A: RETURN 

AsO :FOR J=1 TO 2:A$=MID 
$(BS,3,1)2B=ASC(A$)—C4+ 
(A$>"@")*C7:A=A*C6+B 

IF B<@ OR B>15 THEN AD= 
O:A=-1:3=2 

NEXT: RETURN 

B=INT(A/C6) :PRINT MID$( 
H$,B+1,1);:B=A-B*C6:PRI 
NT_MIDS$(H$,B+1,1);:RETU 


RN 
A=INT(AD/26):GOSUB350:A 
SROSANZGGDRUE SEE ?PRINT 
ck=iNT (AD/26) 3CK=AD-24* 
CK+2Z5* (CK>2Z7) sGOTO398 
CK=CK*Z2425* (CK>Z7) +A 
CK=CK+25* (CK>Z5) : RETURN 
PRINT "{DOWN]STARTING AT 
§43";:GOSUB300:1F INS<> 
N$ THEN GOSUB1O30+1F PF 
{SPACE} THEN48O 

RETURN 

PRINT" {RVS] ENTER DATA’ 
{SPACE }":GOSUB400:IF IN 
S=N$_ THEN226 

OPEN3) 3:PRINT 
POKE198,0:GOSUB360:1F F 
THEN PRINT INS:PRINT" 
{UP} {5 RIGHT)"; 

FOR I= TO 24 STEP 3:B§ 
=S$:FOR J=1 10 2:1F FT 
HEN BS=MID$ (INS, I+J,1) 
PRINT" (RVS)"BSL$;31F I< 
24THEN PRINT" {OFF }"; 


) GET A$:IF AS=NS THEN470. 


IP (AS>"/"ANDAS<"3")OR(A 
$>"@"ANDAS <"G") THEN548 
a= (AS="M")=2*(AS=",")— 


cM 


MP 


Qs 


Qc 


PK 


GQ 
QA 


KS 


EORZUR Tare >"D"THEN73! 


486 


487 
490 


508 


518 
520. 


538 


548 
550 


560 


570 


580 


598 


620 
610 


628 


630 


649 
658 


660 
670 
680 


698. 


708. 
712 


728 


738. 


3*(AS=".")-4*(age"/")=5 
*(AS="3")-6* (AS="K") 

A=A-7* (AS="L")-8% (A‘ 
“)=9*(AS="U")-18*(AS="T 
SAR )-12*(as=" 


REA LSH(AS=BO AE A THE 
N_AS=MIDS("ABCD123E456F 
8", A, 1) 2G0TO 540 

IF AS=R$ AND((I=@)AND(o 
=1)OR P)THEN PRINT BS; 
J=2:NEXT:1=24:GOTO559 
IF AS="{HOME}" THEN PRI 
NT B$10=2;NEXT:I=24:NEX 
T2P=0:GOTO440 

IF (AS="{RIGHT}")ANDF TH 
ENPRINT BSL$;?GOTO546 
IP A$ <>L§ AND A$<>D$ OR 
((2=@)AND(J=1)) THEN GOS 
UB1666:GOTO479 
AS=L$+SS+L$:PRINT BSLS$; 
3J=2-J:1P J THEN PRINT 
{SPACE}L$; :I=I-3 
PRINTAS; NEXT. 2 PRINT. 
(SPACE}S$; 

NEXT I:PRINT: PRINT" (UP} 
{5 RIGHT)"; 2:INPUT#3, INS 
IF INS=N$ THEN CLOSE3: 
GOTO229 


FOR I=1 70 25 STEP3:BS=_ 


MID$(IN$,1) :GOSUB320:iF 
T<25 THEN GOSUB3B0:A(T 
/3)=A 
NEXT:IF A¢>CK THEN GOSU 
B1060:PRINT" {BLK} (RVS} 
(SPACEJERROR: REENTER L 
INE £439":F=1:GOT0440 
GOSUB1@88;B=BS+AD-SA:FO 
R I=0\T0 7:POKE B+I,A(T 
)2NEXT 
AD=AD+8:1F AD>EA THEN C 
LOSE3 :PRINT" (DOWN) {BLU} 
#* END OP ENTRY ** (BLK) 
{2 powN}":GoT0780 
F=0 :GOTO449 
PRINT" {CLR} {DOWN) [RVS} 
{SPACE} DISPLAY DATA ":G 
OSUB490;IF INS=NS$ THEN2 
25. 
PRINT" {DOWN} (BLUJ PRESS: 
{RVS}SPACE {OFF}. TO. PAU 
SE, {RVSJRETURN{ OFF} ‘TO 
BREAKE43 (DOWN) " 
GOSUB36@ :B=BS+AD-SA:FOR 
I=BTO B+7:A=PEEK(I) :GOS 
UB35@:GOSUB380:PRINT S$ 


ul 

NEXT: PRINT" (RVS}";2A=CK 
3GOSUB35:PRINT 
F=1:AD=AD+8:IF AD>EA TH 
ENPRINT" (DOWN) {BLU} ** E 
ND OF DATA **":GOT0220 
GET A$:IF A$=R5 THEN GO 
SUB1889 :GOTO220 

IF A$=8$\ THEN F=F+1:GOs 
UB1088 

ONPGOTO6 38,660,630 
PRINT" (DOWN {RVSJ}_ LOAD 
{SPACE}DATA ":0P=1:GOTO 


718 

PRINT" (DOWN) {RVS} SAVE 
{SPACE} FILE ":0P=6 
INS=NG s INPUT" [DOWN] FILE 
NAMER43";IN$sIF IN$=NS 
{SPACE} THEN220 

Fad SNES OONN {BLK} 
{RVS]T(OFFJAPE OR {RVS} 
D{OPFJISK: §4 
Sn AS: IP AS="T"THEN PR 
LEDOWN]" : GOTOBBD. 


FA 


SA 


cs 


sc 


KM 


oF 


AE 


xP. 
FR 


DP. 


PP 


FD 


FF 


3 


759 


768 
778 


788 


798 
888 


818 
820 


839 


840 
858 


860 


870 
880 


899 


900 


911 


920 
938 


949 


958 
960 


970 


988 


990 


10868 
1610 


1820 


1638. 


1849 IF(AD> 512 AND. AD<49960 


PRINT"D{ DOWN} ":OPEN15,8 
115,"I8+":B=BA-SA: INS=" 
O2"+ING:IP OP THENG1G 
OPEN 1,8,8,INS+",P,W":G 
OSUBB60:IF A THEN220 
AH=INT(SA/256) sAL=SA~(A. 
H*256) :PRINT#1,CHR$ (AL) 
7.CHRS (AH); 

FOR I=0 TO 8:PRINT#1,CH 
R§(PEEK(BS+I))7:1F ST T 
HEN8OO 

NEXT: CLOSE1:CLOSE15 :GOT 
0940 


GOSUB1960:PRINT" {DOWN} 
{BLK]ERROR DURING SAVE: 
£43" :GOSUBa66 :GOTO220 
OPEN 1,8,8,INS+",P,R"3G 
OSUBR6O:TF A THEN226 
GET#1,A$,B$ :AD=ASC (A$+Z 
$)+256*ASC(BS+Z$):IF AD 
<>SA THEN F=1:GOTO85S 
FOR I=@ TO B:GET#1,A$:P 
OKE BS+I,ASC(A$+2$) :IF( 
I<?B)AND ST THEN F=2:AD 
=I:I=B 

NEXT:IF ST<>64 THEN F=3 
CLOSE1:CLOSE15:0N ABS(F. 
>8)+1 GOTO969 ,978 
INPUT#15,A,A$+IF A THEN. 
CLOSE] :CLOSE15:GOSUB1O. 
60:PRINT"{RVSJERROR: "A 
$ . 

RETURN 

POKE183, PEEK (PA+2) :POKE 
187, PEEK(FA+3) :POKEL88, 
PEEK(PA+4) :1FOP=QTHEN92 
6 


SYS 63466:IF(PEEK(783)A 
NDI) THEN GOSUB1G69 :PRIN 
T* {DOWN} {RVS}: FILE NOT 
{SPACE }FOUND. ":GOTO69a. 
AD=PEEK (829) +256*PEEK(8 
30) :TP AD<>SA THEN P=): 
GoT0970 
A=PBEK(831)+256* PEEK (83 
2)=1:F=P-2* (A¢EA)=3*(A> 
EA) ?AD=A-AD:GOTO939 
A=SA:BSEA+1:GOSUB1019:P 
OKE780,3:SYS. 63338 
A=BS: B=BS+(EA~SA)+1:GOS. 
UBI010:0N OP GOTO95H:SY | 
8 63591 
GOSUB1080:PRINT" {BLU} ** 
SAVE COMPLETED **":GOT 
0228 
POKE147,0:SYS 63562:1F 
{SPACE)ST>@ THENS70 . 
GOSUB10802PRINT" {BLU} ** 
LOAD COMPLETED. **":GOT 
0228 . 
GOSUB1O60: PRINT" {BLK} 
{RVS}ERROR DURING LOAD? 
{pow} 43" :0N F GosuB98 
@, 998, 1066 :GoTO220 
PRINT" INCORRECT STARTIN 
G ADDRESS. ("7 sGOSUB360: 
PRINT") "2RETURN) 
PRINT "LOAD ENDED AT "= 
AD=SA+AD: GOSUB360:PRINT 
DS:RETURN \ 
PRINT"'TRUNCATED AT. END. 
ING ADDRESS"; RETURN 
AH=INT(A/256) :AL=A- (AB 
*256) :POKEL93, AL: POKEL 
94, AH 
AH=INT(B/256) :AL=B-(AH 
*256) :POKEL74,AL:POKEL. 
75, AH sRETURN: \ 
TF AD<SA OR AD>EA THEN 
1058 
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)OR(AD>49151 AND. AD<53 
248) THEN GOSUBLO80:F=0 
RETURN 
HC 1058 GOSUB196:PRINT" (RVS) 
{SPACE INVALID ADDRESS 
{ DOWN) {BLK}":f=1:RETU 


RN 

POKE SD+5,31:POKE SD+6 
}208:POKE SD,240:POKE 
{SPACE]SD+1,4:POKE SD+ 
4,33 

DX 1070 FOR S=1 TO 106:NEXT:GO 
701090 

POKE SD+5,8:POKE SD+6, 
240:POKE SD,@:POKE SD+ 
1,98:POKE SD+4,17 

FOR S=1 TO 100:NEXT:PO 
KE SD+4,6:POKE SD,0:PO 
KE SD+1,@:RETURN 


AR 1060 


PF 1086 


AC 1098 


Program 2: MLX For Commodore 
128 


AE 100 TRAP 960:POKE 4627,128: 
DIM NLS,A(7) 

XP. 110. 22=2:24=254 :25=255226=2 
56:27=127:BS=256*PEEK(4 
627 Y:EA=65280 

FB 120 BES=CHRS(7)+RTS=CHR$ (13 
) :DLS=CHRS$ (20) :SP$=CHRS 
(32) :LFS=CHRS (157) 

KE. 130 DEF FNHB(A)=INT(A/256): 
DEF FNLB(A)=A-FNHB (A) *2 
56:DEF FNAD(A)=PEEK(A)+ 
256*PEEK(A+)) 

JB 140 KEY 1,"A":KEY 3,"B":KEY 


SMCS KEY 7, "D" 15 
zIF RGR(S)=5. THEN’ 
FI 158 PRINT" {CLR}"CHRS(142)7C 


HR$(8):COLOR @,15;COLOR 
4,15:COLOR 6,15 

PRINT TAB(12)"{RED)} 
{Rvs} (2 SPACESJE9 @3 

(2 SPACES}"RTS$;TAB(12)" 
{RVS}{2 SPACES] (OFF) 
{BLU} 128 MEX {RED} 
{RVS}{2 SPACES) "RTS; TAB 
(12)"{Rvs}{13 SPACES) 
{BLU)" 

PRINT" (2 Down) 

{3 SPACES}COMPUTEL'S MA’ 
CHINE LANGUAGE EDITOR 
{2 DOWN)" 

PRINT" (BLK) STARTING ADD. 
RESSE44";:GOSUB 260:1F 
{SPACEJAD THEN SA=AD:EL 
SE 180 

PRINT" {BLK} {2 SPACES }EN. 
DING ADDRESS£43"; ;GOSUB 
260:1F AD THEN EA=AD:E 
LSE 199 

PRINT" (DOWN) [BLK] CLEAR 
{SPACE}WORKSPACE [¥/NIJ2 
£43":GETKEY AS:IF AS<>" 
¥" THEN 220 

PRINT" {DOWN} (BLU J WORKIN 
G..."72BANK @:POR A=BS) 
{SPACE]TO. BS+(EA-SA) +72 
POKE A,@:NEXT A:PRINT"D 
ONE" 

PRINT. 'TAB(10)" (DOWN) 
{BLK} {RVS} MLX. COMMAND. 
{SPACE }MENU £43 {DOWN}": 
PRINT TAB(13)"{RVSJE 
{OFFJNTER) DATA"RTS; TAB ( 
13)"{RVS}D{OFF]ISPLAY D 
ATA“RTS;TAB(13)"(RVSJL 
{OFF}OAD PILE" 

HB 230 PRINT TAB(13)"{RVS)S 


GQ 168 


PE 170 


DK 188 


FH 196 


MF. 200 


QH 210 


DC 226 


{OPFJAVE FILE"RT$;TAB(1 
3) "{RVS}C(OFFJATALOG DI 
SK"RTS;TAB(13)"{RVS}Q 
{OFF} ULT{ DOWN} {BLK} 

AP 248 GBTKEY AS+AcINSTR( "EDLS 
CQ",A$) ON A GOTO 348,5 
59,640, 650,938, 940:GOSU 
B 950:GOTO 240 

SX 250 PRINT"STARTING AT"; :GOS 
UB 260:IF(AD<>9)OR(AS=N 
L$) THEN. RETURN: ELSE 259 

BG 268 AS=NLS:INPUT A$:IF LEN ( 
AS$)=4 THEN AD=DEC(AS ) 

=0 THEN, BEGIN:IF A 
THEN 300:ELSE RE 
Tl BEND 

MA 286. IF AD<SA OR AD>EA THEN 
{SPACE} 300 

PM 298 IF AD2511 AND AD<65280 
(SPACE}THEN PRINT BES}: 
RETURN 

SQ 308 GOSUB 958:PRINT"{RVS} I 
NVALID ADDRESS. {DOWN} 


DD 32 CK=CK*Z2+25*(CK>27)+A 

AH 338 CK=CK+Z5*(CK>Z5) +RETURN 

QD 348 PRINT BES; "{RVS} ENTER 
SPACE}DATA ":GOSUB 258 
IF AS=NLS$ THEN 226 

JA 350 BANK @:PRINT:F=0:0PEN 3 


*) 

BR 360 GOSUB 310:PRINT HEX$(AD. 
)ehitpaIP PF THEN PRINT 
(space}L$: PRINT" {UP} 

5 iT)" 


TO 24. STEP 3:B$ 
SSP$:FOR J=l TO 2:1F F 
{SPACE}THEN BS=MID$(LS$, 
I+d,1) . 

PS 388 PRINT’ {RVSJ"BS+LPS;21F 

{SPACE}1<24 THEN PRINT" 

(OFF }"; 

RC 390. GETKEY AS:IF (AS>"/" AN 

D AS<":") OR(AS>"@" AND 

AS<"G") THEN 
AC 480 IP AS="+" THEN AS="E":G 

oTo 470 
QB 416 IF A$="=" THEN AS="F":G 


OTO 476 
(re 20 sr AS=RTS a Gay a 
D (J=1) OR F) THEN PRIN 


T B$z7:d=2:NEXT:1=24:GOT 


0. 480 : 

RD 436 IF AS="{HOME}" THEN PRI 
ND ES: =2:NEXT:1=24 :NEX 
T:F=0:GOTO 368 

XB 449 IF (AS="(RIGHT}") AND F 

THEN PRINT BS+LF$;:GOT 
oO 478 

SP 450 IF AS<>LF§ AND A$<>DLS 
{SPACEJOR ((I=8) AND. (T 
=1)) THEN GOSUB 959:GOT 
0 396 

PS 460. AS=LFS+SPS+LF$:PRINT BS 
+LP$720=2-d:1F J. THEN P 
RINT LF$;2I=1-3 

GB 478 PRINT AS; :NEXT J: PRINT 
(SPACE}SP$; 

HA 486 NEXT I:PRINT: PRINT" (UP) 
{5 RIGHT)"; 2L5=" 

{27 spaces)" 

DP 496 FOR I=1 TO 25 STEP 3:GE 
T#3,AS,BS:IF AS=SP$ THE 
N I=25:NEXT:CLOSE 3:GOT 
0 220 

BA 580 AS=AS$+B$zA=DEC(A$):MIDS. 
(L$,1I,2)=A$:IF I<25 THE 
N GOSUB 328:A(1I/3)=A:GE 
T#3,AS 


GA 750 


AR 510 NEXT IrIP A<>CK THEN GO 
1B, 950:PRINT: PRINT" 
inv} ERROR: REENTER LI 
NE “gP=1:GOTO 368 
DX 528 PRINT BES:B=BS+AD-SA:FO 
R 150 TO 7:POKE B+I, A(T 
):NEXT I 
P=O+AD=AD+821F ADE=EA 
HEN 368 
CLOSE 3:PRINT" (DOWN) 
{BLUJ** END OF ENTRY ** 
{BLK} {2 Down} ":GOTO 658 
PRINT BES; "{CLR} {DOWN} 
(RVS} DISPLAY DATA) "3GO 
SUB 250:1F AS=NLS THEN 
[SPACE] 228 
BANK 0:PRINT" (DOWN) 
{BLU}PRESS: (RVS}SPACE 
(OPF} TO PAUSE, (RVS)RE 
TURN{OFF} TO BREAKE49 
{Down} " 
PRINT. HEXS(AD)+"2"7 GOS 
UB 310:B=BS+AD-SA 
FOR I=B TO B+7sA=PEEK(T 
) PRINT RIGHTS (HEXS(A), 
2);SP$;:GOSUB 326:NEXT. 
{SPACE} . 
PRINT" {RVS}"; RIGHTS (HEX 
$(CK) 2) 
F=1:AD=AD+8:1F AD>EA TH 
EN) PRINT" {BLUJ** END. OF 
DATA **":GOTO 220 
GET A$:IF AS=RT$ THEN P 
RINT. BE$!GOTO. 226 
IF AS=SP$\ THEN P=F+1?PR 
INT BES; 
ON F GOTO 578,618,570 
PRINT BES" (DOWN) [RVS} L 
OAD DATA ":0P=1:GOTO. 66 


xB 538 


CA 540, 


MC556 


JF 568 


XA) 576. 


Do 580 


xB 590 


GR 600 


EB 610 
OK 620 


XS 630 
RP 640, 


r) 
PRINT. BES" {DOWN} {RVS}.S 
AVE FILE ":0P%6 
FeOcFS=NLSsINPUT"FILENA. 
MEE43";PS2IF FS=NLS. THE 
N220 
PRINT" (DOWN) (BLK]{RVSJT 
{OFFJAPE OR [RVS}D{OFF} 
ISK: E43"; 
GETKEY AS:IF A$=" 
N 850:BLSE\IF AS<>"D" T 
HEN 680 . 
PRINT"DISK{DOWN}"2IP OP 
THEN 768 
DOPEN#1, (FSH"; PR") WiIF 
{SPACE}DS. THEN AS=D$:GO 
TO 749 
BANK 6:POKE B5-2,FNLB(S 
A) ?POKE \BS~1., FNHB (SA) :P 
RINT"SAVING “7 F$:PRINT 
FOR A=BS-2 TO BS+EA-SA? 
PRINT #1,CHR$(PEEK(A)) 72 
IF ST THEN AS="DISK WRI 
TE ERROR":GOTO 750 
NEXT A:CLOSE 13PRINT" 
{BLUJ** ‘SAVE COMPLETED. 
{SPACE JWITHOUT ERRORS * 
*":GOTO 226 
IF DS=63 THEN BEGIN; CLO. 
SE. 1:INPUT" {BLK} REPLACE 
EXISTING PILE [¥/NJE43 
“7ASiIF AS="¥" THEN SCR 
ATCH(F$)zPRINT:GOTO 706 
:ELSE PRINT" (BLK}"2GOTO 
660: BEND . 
CLOSE 1;GOSUB) 958:PRINT 
(BLK } {RVS} ERROR DURIN 
G SAVE: R43":PRINT A$:G 
OTO 226 
DOPEN#1, (FS+",P“)2IF DS 
THEN AS=DS$:F=4:CLOSE 
(SPACEJ1:GOTO. 798 \ 


BP 650 


DM 668 


RE 670, 


SQ 686 


SP 698. 
EH 700 


UH 710 


MC.728 


GC 738 


FD 768 
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PX 


RQ 


ER 


FP 


KS 


Address Cataloger 


See instructions in article on page 57 
before typing in. 


778 


780 


_ TBLOAD(F$),B0,P(BS):AD 


798 


880 


“{RVS} ERROR DURING LOAD 


B18 


820 
838 


"RETURN. 
849 


859 


GET#1,A$,BS:CLOSE 1:AD= | 


ASC(A$)+256*ASC(BS) :IF 
{SPACE]AD<>SA THEN F=1: 
GOTO 796 . 

PRINT"LOADING ";F$:PRIN 


=SA+PNAD(174)-BS-1:P=-2 
*(AD<EA)-3*(AD>EA) 

IF F THEN 8@9:ELSE PRIN 
T"{BLU}** LOAD COMPLETE 
D| WITHOUT ERRORS **":GO 
TO.220 

GOSUB 950:PRINT" {BLK} 


t £43":0N F GOSUB 819,8 
28,830, 845:GoT0220 
PRINT" INCORRECT STARTIN 
G ADDRESS (";HEX$(AD);" 
)"': RETURN 

PRINT"LOAD ENDED AT ";H 
EX$(AD) :RETURN 
PRINT"TRUNCATED AT ENDI 
NG ADDRESS ("HEX$(EA)") 


PRINT™DISK ERROR ";A$:R 
ETURN . 
PRINT" TAPE" :AD=POINTER( 


XX 860 


FG 878 


AB 889 


cP 896 


GQ 988 


JD 910 


F§):BANK 1:A=PEEK(AD):A. 
TeReeARE) 1 AH=PEEK (AD 
+2 

BANK 15:SYS DEC("FF68") 
+0,1:SYS DEC("FFBA"),1, 
+0:SYS DEC("FFBD"),A,A 
L,AH:SYS DEC("FF90"),12 
8:IF OP THEN 890 
PRINTA=SA:B=EA+] :GOSUB 
920:SYS DEC("E919"),3: 
PRINT"SAVING "FS 
A=BS:B=BS+(EA~SA)+1:GOS. 
UB 920:SYS DEC("EA18") 
PRINT" (DOWN) [BLU}** ‘TAP. 
E SAVE COMPLETED **":GO 
TO 228 

SYS DEC("E99A"):PRINT: I 
F PEEK(2816)=5 THEN GOS 
UB 950;PRINT" {DOWN} 
{BLK} {RVS] FILE NOT Fou 
ND ":GOTO 220 
PRINT"LOADING ... {DOWN} 
"tAD=FNAD( 2817) :IF AD<> 
SA THEN F=1:GOTO 800:EL 
SE AD=FNAD(2819)-1:F=-2 
*(ADSEA)=3* (AD>EA) 
A=BS:B=BS+(EA-SA)+1:GOS 


XB 


ce 


920 POKEL93,FNLB(A) :POKE194 


938 CATALOG :PRINT" {DOWN} 


940 PRINT BES" (RVS) QUIT. 


95 SOUND 1,508,10:RETURN - 
960 IF ER=14 AND EL=269 THE 


976 IF ER=14 AND EL 
980 IF ER=4 AND EL=780 THEN 


998 IF ER=30 THEN RESUME: EL. 


UB 920:S¥S DEC("E9EB"):_ 
IF ST>8 THEN 886:ELSE 7 
90 . 


+ FNHB(A):POKE 174, FNLB( 
B):POKE 175,FNHB(B):RET_ 
ae Sink 


(BLU) ** PRESS ANY KEY F 
OR MENU **":GETKEY AS: 
OTO 226 ‘ 


E43";RTS:"ARE YOU. SURE. 
(SPACE}[Y/N]2":GETKEY A 
$2IP AS<>"¥" THEN 2203E 
LSE PRINT" (CLR}":BANK 1 
5:END . 


N RESUME 300 - 
99 THE 


N RESUME NEXT 


=DS$ : RESUME 800. 


SE PRINT ERRS(ER);" ERR 
OR IN DINE"; EL 


BEFORE TYPING... 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


0801:FF 


0829: FF 
0831:4B 
0839:E7 


30 36 
o1 
8B 
08 
FF IF 
09 35 
OB 29 
20 F4 
BE ES 
39 23 
Ol 47 
OB 4D 
20 OE AS OE 
EO E6 DO CC 89 
OB Ad 10 18 Bd 
89 @8 26 6F 
OA FB 60 B7 
4D 41 54 43 04 
8D 20 DO BD OB 
a2 93 4c B2 
85 20 C4 6B 
oo 78 AG 73 
AS £9 G1 G2 
OA 3 20 12 
05 FF 09 9D 
10 F7 26 93 F9 
98 20 FO FF 9B 
20 OA AD 40 
£4 co 44 D9 
DO F5 AD G1 AG 
85 AQ AG 51 


AG 
E3 
76 
32 


9E 


a3 
4A 
20 


cr 
op 
10 


FE 
FO 


ar 


OA 97 09 69 
20 FF A4 AC 
27 14 FO B3 
ED 5B BO AE 


0919:E9 
921:13 
0929:3C 
0931:D1 
8939:20 
O941:FO 
0949:A0 
0951:A2 
9959:20 
9961:68 
0969:20 
9971:20 


0979:0A 
0981:A8 
9989:18 
0991:BD 
9999:A9 
O9AL:AB 


99B1:4E 
0989: 28 
99C1:52 
69C9:8D 
99D1:85 
99D9:C4 
O9E1:A4 
09E9:85 
O9F1:6C 
O9F9:FS 
OA01:3A 
AG9: 20 
OA11:A2 
9A19:20 
@A21:20 
OA29:40 
OA31:02 
@A39:FF 
GA41:61 
GA49749 
OA51:1F 
OA59:A0 
OAG1:0A 
OAG9:FF 
OA71:EF 
OA79:FF 
OABL:FF 
OA89:85 
OA91:BA 
GA99:F9 
@AAL:4C 
BAA: 20 
OAB1:20 
BABS :6A 


FF 20 


@AC1L:CD BD 
BACI:A9 36 
@AD1:A6 AG 
@AD9:18 26 
@AE1:20 FB 
BAE9:68 12 
@AF1:26 41 
@AF9:92 BB 
@B01:C8 BL 
9BO9:4C G1 
9B11:01 Be O1 
@B19:85 8B 
@B21:85 62 
@B29:85 @5 18 
9831:03 85 
OB39:FF C8 
OB41:D1 65 
9B49:Bl 62 
OB51:A5 F7 
OB59:EF AS 
OB61:DB C4 
@B69:DB AC 
OB71:1A 20 
@B79:A5 63 
OBB1:A5 62 
9BA9:28 66 
@B91:16 A2 
@B99:0B EG 
OBA1:ES FO 
@BA9:85 BD 
OBB1:68 16 
@BB9:85 C2 
@BC1:D1 OF 
@BC9:FB 19 
@BD1:CO FF 
OBD9:FG FS 


OBE1:4C C6 
@BE9:85 3A 


@BF1:28 Cl 
OBF9:01 68 
OCO1:A9 G3 
@C09:1B co 
@C11:0B E8 
@C19:6C 26 El 
@C21:8F DB 
8C29:E6 FB 1C 
9C31:28 49 
9C39:FO OD 
9C41:49 BC 
9C49:8A 48 
@C51:8D AS 
@C59:8D 5B 
@C61:0D Ad 


20 
24 30 
A2 18 
EA 
PF FO 
45 53 
4B 
96 
20 
c4 
8p 
De 
63 
85 02 
85 03 
1P BL 
BO 17 
05 91 
co 
ES 
04 
EO E5 
2 85 Cl 
20 68 
@3 
OB 
OD 20 
AG 
16 
BE 
Cl a5 
AG 
E8 EO 
i) 
02 
Fl 86 
68 
12 
c9 a3 
93 
AS 
60 20 
00 
O5 
4D 
18 
OE 
AG 
DO 
Ag 
BD 
14 
A2 


FB 
2F 
1F 
64 
4D 
pe 
D7 
DS 
pe 
F7 
B7 
21 
AG 
E2 
3E 
55 
E9 
AF 
D2 
Al 
8B 31 
ag 
AB 
98 
7A 
88 
69 
DS 
5D 
EF 
52 
29 
07 
cs 
4F 
4E 
30 
Or 
TE 
92 
FD 
DE 
49 51 
cb 
EO 
oc 
39 
5c 
AG 
6F 
1414 
2E 
47 
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@C69:BA 
@C71:C9 
@C79:A5 
gc81:18 
@cB9:Dd 
@C91:E8 
9C99:4C 
@CA1:32 
@CA9:C9 


@cD1:c9 
9CD9:91 
OCE1:84 
®CE9:6D 
OCF1:E6 
OCF9:20 
9D81:8C 
OD09:A0 
OD11:ED 
0D19:62 
6D21:6D 
6D29:32 
OD31:F8 
0D39:FF 
®D41:48 
9D49 C4 
OD51:02 
@D59:EE 
6D61:61 
8D69 08 
@D71:11 
0D79:05 
OD81:65 
6pB9:85 
9D91:60 
OD99 :20 
ODAL:FB 
@DA9:BA 
GDB1:A9 
ODB9:85 
@DC1:208 
@DC9: 68 
@pD1:91 
@DD9:AD 
ODE1 62 
ODES: DO 
ODF1:B1 
ODF9:EA 
OE61:B1 
GEO9:0E 
OE11:11 
E19 360 
9E21:03 
9E29:68 
@E31:8E 
0£39:8F 
6E41:BD 
GE49:8D 
OES1:FO 
OE59:F4 
@E61:15 
OE69:D1 
OE71:E8 
GE79:88 
9E81:81 
OE89:71 
BE91:FF 
GE99:FB 
OEA1:07 
OEAQ 1 FO 
OEB1:3F 
OEB9: 01 
OEC1:04 
GEC9 208 
OED1:91 
GED9:8D 
OEE1:0E 
OEE9:4C 
OEF1:69 
OEF9:A5 
OFO1:85 


o1 
PO 
49 
BA 
A2 
D8 
B89 
Da 
5A 
F7 
ll 
ce) 
FO 
14 
48 
20 
85 
BA 
4c 
EB 
ac 
1B 
4c 
@D 
8B 
20 
60 
E7 
68 
8c 
37. 
16 
BD 
05 
98 
69 
De 
Ag 
FE 
80 
14 
AQ 
A2 
Do 
ag 
FO 
85 
cé 
AG 
4c 
FF 
28 
AD 
85 
63 
ES 
Bo 
OE 
Fo 
F4 
c4 
02 
SF 
FO 
AG 
A4 
FB 
4F 
oo 
FF 
FF 
24 
F6 
FC 
OE 
cD 
a9 
38 
8D 
85 
o4 
E6 
AS 
BD 
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OFO9:11 
OF11:60 
GF19:63 
OF21:FF 
OF29:0F 
OF31:FO 
OF39:20 
OF41:04 
OF49:69 
OF51:63 
OF59:A9 
OF61:0A 
OF69:0D 
OF71:81 
GF79:0F 
OF81:C8 
@F89:C8 
OF91:FC 
OF99:FB 
FAL:91 
OPAS:E4 
OFB1:0A 
OFB9:97 
OFC1:05 
GFC9:A0 
GFD1:A2 
OFD9:60 
OFE1:60 
OFE9:FC 
OFF1:65 
OFF9:85 
1691:D6 
1609: 20 
1611:FD 
1019:68 
1621:4C 
102914 
1031:86 
1639:0E 
1641:6E 
1049:0F 
1051:0F 
1959:16 
1961:48 
1969:03 
1671:69 
1979:85 
1081:A6 
1989: 96 
1991:06 
10899:02 
19A1:65 
19A9:85 
19B1:A9 
16B9:A9 
10C1:02 
106¢9:93 
19D1:21 
1009: 02 
18E1:00 
16E9:BD 
10F1:02 
10F9:0E 
1101:A8 
1109:F8 
2121:41 
1119:3A 
1121:52 
1129:3A 
1131:55 
1139:06 
1141:45 
1149:43 
1151:008 
1159345, 
1161:5A 
1169:00 
1171:45 
1179:AD 
1181:A0 
1189:52 
1191:67 
1199104 
11A1:05 
11A9:07 


11B1:44 
11B9:41 
11¢1:0D 
11¢9:A3 
11D1:A3 
11D9:0D 
11E1:41 
11E9:56 
11F1:00 
1LF9?4F 
1201245 
1289 :88 
1211:26 
1219:41 
1221:49 
1229:49 
1231:FE 
1239:21 
1241:05 
1249 :86 
1251:0D 
1259228 
1261:54 
1269:48 
1271254 
1279245 
1281:4¢ 
1289:4E 
1291:1C 
1299:9D 
12A1:43 
12A9:4¢ 
12B1:4E 
12B9:1¢ 
12¢1:85 
12€9 :68 
12D1:c8 
12D9:14 
12E1:FO 
12E9 :A2 
12F1:CA 
12F9 120 
1301286 
1309:C9 
1311:8B 
1319:Do 
1321:13 
1329:04 
1331:4¢ 
1339:C5 
1341:c6 
1349:12 
1351:A8 
1359:49 
1361:0D 
1369:E9 
1371:BE 
1379213 
1381:FO 
1389:B9 
1391:BF 
1399213 
13A1:A5 
13A9:E9 
13B1:01 
13B9:13 
13C1:65 
13C9:DB 
13D1:0D 
13D9:FF 
13E1:13 
13E9:A2 
13F1:60 
13F9:BB 
1401:01 
1409 :0D 
1411:86 
1419207 
1421:268 
1429 :0D 
1431:04 
1439:ED 
1441:A5 
1449:0D 
1451:D2 


Chopper 1 


See instructions in article on page 54 
before typing in. 


9801:0B O8 OO OG 9E 32 30 37 ED 
9809:36 99 BO BB BO BO BB BO 34 
@811:09 20 GB O8 BO OB OO BO 21 
9819:00 88 OB 20 18 17 AD GO 9B 
@821:8D 17 D@ 8D 1D DO 8D 10 OB 
@829:D@ AA AO FF 8D 1C D@ BD BD 
@831:40 OA 9D 27 DB EB EO 8 FD 
9839:D8 F5 4C 88 16 OO OB OB Fl 
8841:08 00 OO BB B9 GO BO OB 51 
9849:00 80 OB BB BB BB OO BB 59 
9851:08 55 55 40 08 40 OO O1 67 
859:50 O8 O7 E4 04 1F E9 55 86 
@861:5A AA 95 1A AD 44 O5 54 5A 
8869:00 00 00 BB BB BB BB BB 79 
9871:00 86 66 OB OB BO OO OO BL 
8879:00 0B 08 BB B9 BO BB BB 89 
9881:08 90 GB OO OB BO BO BO 91 
8889:00 BB GB BB BA BO BB BB 99 
6891:00 82 O5 55 OB G1 GO BO 9B 
9899:05 40 10 1B D2 55 6B F4 97 
@8A1:56 AA A5 11 6A A4 OO 15 48 
@8A9:50 8 0B OO G2 GO BO OB EL 
88B1:00 88 88 BB G2 BO BB BB Cl 
@8B9:00 BB BB BB G2 OO OB GB CO 
98C1:08 68 8B BO 02 BO BO BO DI 
989 00 
@8D1:08 68 69 0 O5 FF 50 1A F1 
@8D9:AA A4 7B BB B9 7B BB BY 88 
@8E1:1A AA A4 @5 69 58 OB 41 5C 
@8E9:00 G1 OO 48 O OO BO OO 3E 
@8F1:09 G6 GB OG OZ BO GO OB B2 
@8F9:00 BS GB BB B OO BO GB DA 
9901:08 G2 BB GO 6 BO OO BO 13 
0909:00 00 GB BO OF BO BB OO 1B 
8911:08 G8 06 OO OE BO OO OB 23 
8919188 BB BB BB BG BB BA BB 2B 
0921:0A AA AG BB BG OO BO BO FE 
9929:09 GB GO BB BO BO BD OB 3B 
8931:09 06 BO OO 08 BO OO OB 43 
8939:00 0S OB BB 26 BO OB BO 4B 
9941:88 GO OG BO GO BO BO BO 53 
9949:00 00 OB OB OO BB BO OO 5B 
6951:00 00 OB BO 20 BO GO OO 63 
©959:00 00 88 14 08 OO 69 OO 7F 
8961:01 EB 40 68 55 08 OB 02 AL 
0969:00 00 BB BB BO BB GO OB 7B 
9971:08 98 6B OB B0 GO BO OO 83 
8979:88 00 BB BB BO BB 58 BB 2c 
9981:08 08 06 OB GO OO GB BO 93 
9989:09 06 GB BB 20 BO BB OB 9B 
6991:00 GA OB AB 62 82 BO OO 4B 
9999:AA 00 BB 28 OO BB AA OO DB 
99A1:02 AA 80 GA 28 AD BC 3C 28 
G9A9:30 60 3C BO BO BB BB OO SB 
99B1:00 88 BO BO 06 BO BB BO C3 
09B9:08 68 OB BB BO BB BB BO CB 
89C1:08 00 OB 55 BO OS FF 50 8D 
@9C9:1F FF F4 1P FF F4 7F FF CE 
Q9D1:FD 7D 55 7D 54 6 15 40 DIL 
99D9:00 61 18 3C 64 B4 3C 10 AA 
@9E1:61 3C 48 BC 69 30 OB 28 90 
Q9E9:26 62 AA 89 GO 28 OO OO BA 
O9F1:AA 08 OO 82 08 BO 82 GB 86 
Q9F9:02 82 80 OB OB BB BB OB BD 
GAG1:00 OB BB CO OB BO BB 8 Al 
@AG9:32 1E 88 04 97 72 G1 ED 74 
@A11:E0 2B 7F 90 OF DE DC Cl cB 
@A19:FF DO 89 B7 43 20 77 SC E3 
@A21:01 DE C4 @3 24 80 OB 83 DC 
GA29:28 88 OB BO O0 BO BB OB 4D 


@A59:E8 EO @8 DO F5 AD O7 BD 1A 
@A61:26 DB AD BB 8D 25 DB AD 3E 
@A69:7F BD 15 DO AI 9B BD GC G7 


@A71:D@ A9 77 BD OD DB 4c 14 78 
@A79:0C 26 C9 BA 85 FB 29 OC EF 
@A81:C9 


@A91:A9 
GA99:AF OA 18 6D BC DB 8D BC AC 
@AA1:D0 BD BA 9A 18 6D OD DO EG 
@AA9:8D BD DB 4C 40 OB BO BO D4 
@AB1:00 OO FF FF FF 60 01 81 C8 
@AB9:01 00 FF @1 08 OO FF @1 SF 
@AC1:00 OB FF G1 GB BO OB OO ES 
@AC9:AD OG DC 29 OF 85 FB AO 13 
OAD1:OF 38 E5 FB 68 88 00 
@AD9:@0 EE 34 03 AD 34 83 C9 6E 
@AE1:1@ D@ 17 AD BG BD 34 B3 51 
@AE9:EE 35 @3 AD 35 63 C9 08 4F 
GAF1:D¥ BB AI BO BD 35 G3 26 BD 
OAF9:37 17 4C 88 GB 88 OB AD 07 
@BO1:1E D@ 85 O2 AD 1E DO AS 58 
@BG9:02 29 49 FO 10 AS 02 29 C5 
@B11:80 D@ GA AO G1 20 89 15 28 
6B19:A9 68 20 CO 16 AS B2 29 58 
@B21:80 FO @6 A5 G2 29 40 FO F4 
@B29:03 4C 98 OB 4C 43 OF OO 25 
9B31:08 08 BB OG BO OB OD OO 47 


AD FC 

AD 64 

AD FB 

AD 3c 

AD 68 

AD E9 

6B69:94 08 49 15 8D 94 OB 6G 75 
@B71:00 OB BB BB BO BG BO OO 87 
0B79:00 08 BB BB BO BB BO EE 7E 
FO ES 

36 36 

AD 7E 

ao 43 

60, 39 

Do 14 

FF E3 

@BB9:8D 15 DO AO FF 8D 37 93 38 
@BC1:AD FE 87 C9 22 DB B5 AD F3 
@BC9:1 8D 37 83 AD BE DO C9 EB 
®BD1:00 FO 4 C9 13 DO G6 AD D2 
@BD9:7F 8D 15 DO 66 18 6D 37 38 
@BE1:03 8D BE DO 60 OB OO EE 9D 
OBE9:38 @3 AD 38 @3 C9 70 DO 87 
@BF1:08 AQ GB BD 38 O3 26 51 AE 
@BF9:1@ 4C 21 OC AD BB DO C9 EB 
@CO1:FF FO 04 C9 18 DB BB AD 34 


0CO9:18 BC 49 20 BD 18 BC EE OB 
@C11:68 D@ 68 AY 3G BD Bl DO BE 
GC19:A9 5G 8D BO DO 4C 45 BC 1A 
@C21:EE 39 @3 AD 39 @3 C9 10 B3 
@C29:DB8 BB AI OO BD 39 O3 EE 27 
@C31:3A @3 AD 3A 63 C9 11 DO B2 
6C39:68 AI GB BD 3A B3 26 64 1B 
@C41:6C 4C DA BA A2 BB AD 36 87 
@C49:9D 93 DB AY 5B 9D B2 DB 73 
@C51:E8 ES EO BA DO FO AD BB F2 
@C59:8D 12 D4 AS FF 8D OF D4 1B 
@C61:4C D® OC A2 OB 4c 91 11 E4 
@C69:C9 30 DO OF AD BB DO 9D 2A 
@C71:62 D@ 4c 35 12 OB BB BB 2c 
6C79:20 90 16 FE 03 D@ BD 83 52 
@C81:D0 C9 ED D® GB AY 28 99 28 
@C89:F9 07 4c F@ 12 EA EA EA F5 
9C91:E8 ES EO OA DO CF 6G BO 9B 
9C99:80 AI 29 85 FB AQ DB 85 36 
@CA1:FC A9 OB 85 FD AO BE 85 33 
OCA9:FE Ad 69 Bl FD 91 FB C8 7B 
@CB1:C@ 08 DO F7 A5 FB 18 69 7C 
6CB9:28 85 FB A5 FC 69 80 85 34 
@CCl:FC A5 FD 18 69 68 85 FD 77 
@CC9:C9 CB DB DD 6B BB BB AI 9D 
@CD1:04 8D 9F BC AX BD BD A? 48 
@CD9:6C 26 9A GC AD DB BD OF 7F 
@CE1:@C EE A7 OC 28 9A OC 20 15 
OCE9:F3 OC A9 FF 8D 1B DO 4C FA 
@CF1:6D 14 A9 3F 8D 39 12 AS DD 
QCF9:27 
@DB1:CB CO CB CB CB CB CO AG FA 
9D09:83 88 BF 98 98 B5 92 AD 62 
@D11:A0 AD AD Bl AD AB AG AG 3C 


@D19:C4 C4 C4 C4 C4 C4 C4 
@D21:A0 E4 E4 E4 E4 E4 AG 
@D29:E7 13 @3 OF 12 95 ES 
@D31:E7 BO BO BO BO BO ES 
@D39:A@ E3 E3 E3 E3 E3 AG 
@D41:AG E4 E4 E4 E4 E4 AO 
@D49:E7 @8 9 13 63 12 ES 
@D51:E7 BO BO BO BO BO ES 
@D59:A@ E3 E3 E3 E3 E3 AD 
@D61:A0 E4 E4 E4 E4 E4 AD 
@D69:E7 BC B5 16 O5 BC ES 
@D71:E7 AO AD Bl AD AG ES 
@D79:A@ E3 E3 E3 E3 E3 AO 
@D81:A0 AB AD AB AD AG AG 
OD89:A0 E4 E4 E4 E4 E4 AD 
@D91:E7 62 OF OD G2 13 ES 
@D99:E7 AG Bl BB BO AO ES 
@DA1:A@ E3 E3 E3 E3 E3 AO 
@DA9:AG E4 E4 E4 E4 E4 AD 
ODB1:E7 18 12 83 68 14 ES 
ODB9:EA AD AD B3 AD AG ES 
@DC1:AQ E3 E3 E3 E3 E3 Ad AY 79 
@DC9:F6 8D 73 12 4C EA OD AO 24 
@DD1:13 26 86 16 AG 17 AI BD BO 


@DD9:28 D2 FF A9 28 A2 1F 26 3D 
@DE1:D2 FF CA 10 FA 88 10 EE C8 
GDE916@ AI DB BD 62 BC AI BC 34 
@DF1:8D 63 BC AO 11 8D 37 BC B1 
ODF9:AD 1E D@ 4C OO 13 OB F6 94 
@EO1:F6 06 E6 46 F6 BG 56 G6 AD 
@EO9:F6 26 56 C6 C6 F6 F6 D6 38 
@E11:06 56 F6 G6 F6 F6 F6 D6 5D 
GE19:C6 E6 96 F6 F6 26 26 F6 28 
@E21:96 F6 F6 46 F6 F6 06 06 2F 
@E29:F6 51 D1 Bl 51 @1 26 F6 3C 
OE31:F6 56 56 F6 36 46 C6 F6 E7 
@E39:86 C6 56 B6 F6 F6 F6 F6 BB 
@E41:F6 86 F6 F6 F6 F6 F6 76 AD 
@E49:06 Fl Al Fl Fl Fl 86 C6 62 
@E51:C6 F6 26 F6 F6 46 26 56 36 
GE59:F6 26 F6 F6 46 26 46 F6 17 
GE61:96 E6 C6 F6 RE 26 FS 
@E69:A6 41 Fl Fl Fl El A6 
@E71:F6 26 F6 D6 F6 F6 F6 46 AG 

F6 

B6 


BSSSESSRRSTSTS RSSSTSS 
& 


@E79:F6 F6 F6 F6 F6 56 
GEB1:B6 16 F6 C6 56 CO 
GE89:E6 06 F6 F6 06 36 F6 F6 D6 
@E91:26 @1 Al 41 Fl Fl F6 F6 85 
@E99:26 06 36 F6 C6 F6 46 F6 16 
@EA1:F6 F6 56 B6 FG F6 56 C6 34 
@EA9:B6 EG G6 AG 46 46 56 CO C4 
@EB1:F6 41 41 Fl 41 51 B6 B6 54 
GEB9:F6 B6 F6 C6 B6 F6 F6 E6 BO 
@EC1:F6 D6 F6 36 C6 E6 B6 AY 3A 
@EC9:06 85 FE A9 D@ 85 FD AD OB 
@ED1:1B D4 29 87 C9 G6 BO F7 06 
@ED9:85 05 E6 @5 AD FO AD 1B 66 
@EE1:D4 29 G1 DB O5 AI AB 4C 3C 
@EE9:ED OE A9 FB 91 FD AS FE 44 
@EF1:18 69 D4 85 FE AQ OF 91 BS 
@EF9:FD A5 FE 38 E9 D4 85 FE 8E 
@F@1:98 38 E9 28 AB C6 O5 AS 49 
@F09:05 C9 BB DB D1 EG FD A5 F4 
@F11:FD C9 FO D@ BA 60 AD FF 7E 
@F19:03 C9 BB DB G3 4C 36 OF FC 
QF21:EE FF 03 C9 58 FO Ol 68 5C 
@F29:AD 1E D@ AY 27 28 9C 15 62 
@F31:A9 O@ 20 CB 10 AD FE 07 FO 
@F39:C9 26 BO 83 4C 7A OA 4C BB 
@F41:70 10 A 02 85 FB AB AS 04 
@F49:02 25 FB FO O5 A 28 20 7F 
OF51:FF 13 C8 18 06 FB CO 87 77 
OF59:D0 4c 98 OB 86 FB 18 FO 
OF6 A4 FB 20 63 10 C9 6E 
GF69:28 DO 22 20 BA 16 BD 40 FF 
@F71:63 C9 OD FO 3 4c 91 BC AC 
9D 40 93 AI 25 99 C6 
AD 00 D@ 9D @2 DB ES 
9D 93 D@ BD 83 DO CO 
@C AD FE 67 C9 28 5C 
60 4C 97 10 8D FE 48 
7F 8D 15 DO 60 98 BB 
@2 85 FC 18 G6 FC 48 
BD 03 D® C9 35 90 F2 
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GFB9:05 
OFC1:8D 
@FC9:18 
GFD1:D0 
@FD9:C9 
OFE1:EA 
OPES :OF 
GFF1:FB 
OFF9:05 
1001:12 
1009 :FB 
1611:08 
1019:30 
1021:05 
1029:9D 
1031:F4 
1839 :00 
1041:DB 
1849:Do 
1051:EE 
1059: D8 
1661:38 
1869 :99 
1071:6D 
1879 :63 
1081:87 
1689 :8D 
1091:AD 
109998 
10A1 :07 
18A9:4C 
10B1:11 
16B9:3F 
10C1:39 
16C9:FF 
16D1:C9 
10D9:0F 
10E1:BO 
1059 :10 
1@F1:D6 
16F9:11 
1161:F5 
1109:45 
1111:61 
1119:FE 
1121:10 
1129:EA 
1131:40 
1139:AF 
1141:¢4 
1149:B7 
1151:¢3 


1199:82 
11A1:46 
11A9:A4 
11B1:28 
11B9:4¢ 
11C1:18 
11¢9:F9 
11D1:39 
11D9:98 
11E1:9D 
1LE9:07 
11F1:F8 


11F9:9D 
1201:AD 
1299:28 
1211:99 
1219:07 


1231:4¢ 
1239:3F 
1241:1D 
1249:91 
1251:Be 
1259215 


28 
DO 
93 
CE 
Do 
03 
40 
83 
BA 
cA 
20 
BD 
Eg 
EE 
@5 
FB 
DB 
9D 
4c 
@3 
AQ 
BQ 
Do 
AD 
00 
90 
Do 
Do 
60 
26 
15 
TF 
39 
Ag 
EA 
BO 
AF 
06 
OB 
18 
D2 
35 
4F 
FE 
co 
00 
20 
4c 
D2 
ca 
cS 
cé 
oo 
lo 
2 
EO 
83 
DA 
20 
De 
38 
18 
BO 
08 
ll 
FB 
4c 
6o 
9D 
07 
20 
9D 
66 
Do 
93 
07 
91 
1B 
9D 
12 
63 
68 
A2 
06 
28 


7B 
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1261:A9 
1269:48 
1271:03 
1279383 
1281:AA 
1289:12 
1291:12 
1299:9D 
12A1:CA 
12A9:85 
12B1:A9 
12B9:47 
12¢1:42 
1209120 


12E9:A8 
12F1:D4 
12F9:C9 
1301:66 
1389:03 
1311:1¢ 
1319:4C 
1321:42 


1349 :83 
1351:30 
1359:02 
1361:12 
1369:7B 
1371:D8 
1379:E0 
1381:C9 
1389215 
1391:F6 
1399212 
13A1 :D8 
13A9 :@C 
13B1:A9 
13B9:0C 
13C1:87 
13C9 :87 
13D1:4C 
13D9:13 
13E1:7A 
13E9:AA 
13F1:D8 
13F9:4C 
1401:E9 
1409: FC 
1411:01 
1419:a9 
1421:39 
1429:a9 
1431:D2 
1439:1F 
1441:06 
1449:27 
1451:06 
1459:29 
1461:06 
1469:4c 
1471:F6 
1479:8D 
1481:a9 
1489 260 
1491:15 
1499:4¢ 
14A1 203 
1409318 
14B1:FA 
14B9:8D 
14C1:8D 
14C9:EA 
14D1:14 
14D9:4C 
14E1:D8 
14E9 198 
14F1:56 
14F9:8D 
1591215 


02 


1509:FF FO 09 8D 01 D4 EE 56 F8 
1511:03 4C 68 16 AD BG 26 6A 29 
1519:15 A9 @1 8D 58 83 AD 2C 3F 
1521:8D 52 63 AS 15 8D 53 63 2A 
1529:4c 


1541:@1 
1549:61 8D 5 83 26 86 15 Ao 68 
1551:5E 8D 52 63 A9 15 8D 53 98 
1559:@3 AD OC D@ 60 96 80 70 BS 
1561:60 50 A0 FF 88 90 60 60 D7 
1569:88 BD 51 63 BD 55 83 AD C2 
1571:81 8D 57 93 60 8D 55 93 Cl 
1579:AD 57 63 8D 64 D4 60 8D 4B 
1581:51 @3 A9 21 8D 57 93 60 BC 
1589:8D FF 03 A9 O09 8D 54 93 57 
1591:A9 81 8D 04 D4 A9 @3 BD C3 
1599:81 D4 60 A9 86 8D 1 D4 2D 
15A1:A9 41 8D 04 D4 4c 3B 14 45 
15A9:AD 6D D® 49 FF 8D @1 D4 A 
15B1:4C 17 OF AS 61 BD 54 93 2E 
15B9:AD BC 87 60 AD FE 87 C9 12 
15C1:28 F@ ED 4C A 15 AO 8 BB 
15C9:8D @3 D4 8D 62 D4 4c C8 B3 
15D1:@D A9 66 8D 54 93 BD 98 97 
15D9:D4 8D 74 63 8D @1 D4 4c Fe 
15E1:85 12 A9 60 BD 54 03 BD D9 
15E9:61 D4 8D @8 D4 8D 74 03 C4 
15F1:A9 @1 4C 5E 12 A9 1 8D 67 
15F9:54 @3 A9 13 4c D2 FF AD DO 
1601:74 83 C9 O1 FO G3 4C 31 CE 
1609:EA AD 78 @3 C9 @1 DO 1F 67 
1611:AD 71 83 CD 75 03 98 17 9D 
1619:28 43 16 A9 BB BD 76 83 AD 
1621:8D 78 93 AD 72 93 8D 34 5A 
1629:16 AD 73 63 8D 35 16 AE 86 
1631:76 63 BD A8 16 C9 FF FO 64 
1639:13 8D @8 D4 EE 76 93 4C 44 
1641:31 EA 8D 75 63 AD 77 @3 8A 
1649:8D 6B D4 68 AS BB BD 71 79 
1651:03 8D 75 93 AO 11 8D 77 65 
1659:@3 A9 @1 BD 7@ O3 AI 6C B9 
1661:8D 72 63 A9 16 8D 73 93 BC 
1669:4C BB 16 88 7A 74 6E 68 71 
1671262 68 6E 74 7A FF 68 68 D1 
1679:86 8D 74 83 4c 33 14 AD CB 
1681:61 8D 74 03 4c F6 15 AQ 62 
1689:81 8D 74 63 4C C7 15 AS AD 
1691:61 8D 70 63 8D 71 83 AS CL 
1699:11 8D 77 63 A9 AB 8D 72 4E 
16A1:03 A9 16 8D 73 83 68 AD SE 
16A9:98 98 88 80 78 76 60 58 FS 
16B1:48 36 26 FF 88 06 OO OO BE 
16B9:89 A9 @1 8D 78 63 AY G1 2D 
16C1:8D 71 93 A9 81 8D 77 @3 48 
16C9:A9 D6 8D 72 63 AD 16 BD D1 
16D1:73 83 4C EA OF 64 63 03 42 
16D9:@3 83 03 62 02 62 O2 FF E4 
16E1:08 88 O86 BB AI B1 BD 58 CA 
16E9:83 8D 51 83 8D 54 83 AD C2 
16Fl:11 8D 57 03 AJ 5E 8D 52 59 
16F9:93 A9 15 8D 53 83 4c FO BD 
1791:0F A9 06 BD O1 D4 BD 54 C4 
1709:83 4C 98 13 AD BC 87 C9 47 
1711:B@ FO 03 CE F5 93 60 20 BD 
1719:9C 14 A9 86 BD 26 DO AI 68 
1721:0E 8D 21 D@ A2 48 BD 31 cc 
1729117 9D 68 80 CA 16 F7 68 39 
1731:1C 68 1C 68 C3 C2 CD 38 78 
1739:38 AD 8D 62 DO 88 AD BF C5 
17411:8D 18 D4 4C 7F 11 A9 OO 2F 
1749:8D 18 D4 4C 3A 17 AD F5 23 
1751183 C9 68 DB 63 4C AD 13 38 
1759:EE 54 86 4C D4 13 80 90 BC 


BEFORE TYPING .. . 
Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


° 1578:A9 68 Bl 38 8D BO G3 CB 18 | C118:86 AF A2 94 AD BO 
TurboDisk 128 1500:B1 3B 8D 01 03 20 CD 95 4D | C120:15 20 65 Cl 20 7D 
*. ° . . : 16 O5 AD OB O3 DO F5 87 C128:88 C4 38 32 FO G6 
See instructions in article on page 68| 1599:a9 3A 8D 07 1c 60 AG 6B £3 | C13:Cl 18 96 FO A2 62 
before typing in. 1598:B9 08 03 85 85 AS 62 BD BC | C138:BD OO C4 91 AE CB 

15A9:08 18 AD G6 18 29 84 FO E4 | C140:61 C4 96 F4 BD OO 
1300:4C 1B 13 A9 GC BD 30 83 OD | 15A8:F9 AD BO BD GB 18 A2 04 BC | C148:AE CB 28 76 Cl 18 
1308:A9 F2 8D 31 83 AD OB BI DB} 15BG:A9 BO 06 85 2A GA O6 85 D3 | C15G:1B BD 11 DO 6B AG 
1310:29 13 FO 06 20 GC CO CB 89 | 15BB:2A BA BD Bd 18 CA DO FO AA 
1318:D0 F5 60 A9 SC BD 36 03 47 | 15C0:48 68 48 6B AD OB BD AB 21 
1320:A9 13 8D 31 03 AD 1A DO 44] 15c8:18 CB DB CC 6G AD O3 85 4D 
1328:E6 OD 43 31 32 38 26 54 87 | 15D0:86 AC 91 93 84 07 AD OB 55 
133G:55 52 42 4F 44 49 53 4B Gc | 15D8:63 C5 96 GB 85 G6 28 FO BC 
1338:26 44 49 53 41 42 4C 45 CE | 15E0:10 A9 BO 85 68 58 24 G9 95 
1340:44 6D 66 GD 43 31 32 38 18 | 15E8:30 FC 78 A5 OB C9 G1 DB CD 
1348:20 54 55 52 42 4F 44 49 64 | 15F0:54 A9 EE 8D OC 1c AQ G5 98 | C190:8D OO DD A2 94 CA 
1350:53 4B 20 45 4E 41 42 4c 93 | 15F8:85 32 A9 O08 85 33 85 38 DB | C198:FC A2 64 AD BB DD 
1358:45 44 OD O@ 85 93 AS 93 2D | 1600:A9 63 85 31 20 5C 06 50 54 | CLAG:0A 26 95 28 26 95 
1360:FO 05 AS 93 4C 6C F2 A2 CA| 1698:FE BB AD O1 1C 99 OG O3 F1 | CLAS:F2 AS 95 49 FF 99 
1368:10 A9 AG 9D CO 16 CA 10 F2] 1610:C8 DB F4 AB BA 50 FE B3 4B | C1BO:CB DO CC 60 EA EA 
1370:FA AG OO 26 AE F7 C9 24 4B | 1618:AD G1 1C 99 6B 61 CB DO DE | C1BB+EA EA 
1378:F0 EB AD 3@ DO 85 FA AD 46 | 1620:F4 20 EG FB AS 38 C5 47 5B | C1CO:EA EA 
1389:0B8 8D 11 DO AD FD 8D 39 4F | 1628:FO G4 AO 22 DO 11 26 EY 1A | C1CBsEA EA 
1388:D0 AD G1 26 AE F7 C9 3A 84 | 1639:F5 C5 3A FO 64 A 23 DB FC | CLDO:EA EA 
1390:F8 04 AD OO FG G1 CB AZ 04 | 1638:06 AD EC BD BC 1c 68 C6 AG | C1DB:EA EA EA EA 
EA 
EA 
EA 
EA 


c4 
cl 
28 
AG 
Es 
c4 
48 
RE 
AQ 
00 
Da 
AS 
28 
8D 
rc) 
EA 
BA 
cA 
06 
EA 
EA 
EA 
EA 
EA 
EA 
1398:FF E8 20 AE F7 9D CO 16 BS | 1640:86 DO AE FO G3 18 69 18 2c | CLEO:EA EA 
13A0:CB C4 B7 96 F4 26 BE 14 BS | 1648:85 44 AD FF 8D 06 63 20 10 | CLEB:EA EA 
13A8:A5 BA 20 Bl FF A9 6F 20 15 | 1650:96 @5 AO 3A BD B7 1C AS 48 | C1FO:EA EA 
13B0:93 FF AQ 55 20 AB FF AD 78 1658:44 4C CB Cl 20 62 06 4C D1 C1LF8:EA EA 
13B8:43 20 AB FF 20 AE FF 78 Dl | 1660:9E 6 AS 12 85 16 AS 13 16 | $290:20 42 DB 78 8D 
13C8:28 4D 14 2c 68 Gc 36 5D 7D | 1668:85 17 A5 86 85 18 A567 11 | C208:1C AD 12 AB Bl BD OB 
13C8:A4 C3 A6 C4 AS BO FO G6 4F | 1675:85 19 A GB 45 16 45 17 FE | C219:8C @1 G3 26 CD G5 ad 
13DB:AC @2 OC AE 63 OC 84 AE 3A | 1678:45 18 45 19 85 1A 20 34 96 | C218:85 3C A2 OO B6 4B FO 
13D8:86 AF A2 64 AD 00 OC FO 39 | 1680:F9 A2 5A 20 9E 06 50 FE 4c | C220:A0 00 Bl 3B 29 BP CO 
13E0:15 20 2F 14 26 4p 14 AD CC | 16g8:BB AD 1 1c D9 24 Go DO BE | C228:DB 19 CB CB CB BO AD 
13E8:00 BC 30 3C FO 96 28 2D EB | 1699:06 CB CB OB DB FO GO CA 6G | C230:C9 2A FO 42 CO 3F FO 
13F6:14 4C E4 13 A2 02 86 FB 28 | 1698:D8 E9 AO 26 DO Al AO DO 10 | C238:D1 3B DB 67 CB CB 12 
13F8:A6 08 BD 60 GC 20 BF F7 7F | 16AG:8D @5 18 AO 21 2C O5 18 4E | C240:35 DO EA E6 4B AG 4B 
1400:C8 E6 FB AG FB EC 61 6C Dl | 16A8:10 9E 2C 86 1C 30 F6 AD 47 | C248:08 FO O7 BD GE O5 85 
1498:99 FO BD 69 GC 26 BF F7 C4 | 16BG:G1 1C BS AD OO 60 FF FF G7 | C250:D8 CE AD O08 G3 FO 66 
1410:C8 26 48 14 18 AG FA SE CD | 16ne:FF FF FF FF FF FF FF FF £4 | €258:01 03 4C 13 05 AQ FF 
1418:39 11 DO AG 93 | 16co:AB AB AG AD AB AB AB AD EC | C260:08 03 26 96 5 AD ae 8D E4 
E6 
63 
cD 
De 
AD 
02 
64 
A2 
96 
De 
8p 
61 
06 
BO 
78 
EE 
AQ 
85 
AD 
F4 
1c 
EG 
oC) 
3A 
EC 
85 
96 
44 
94 
85 
85 
45 
F9 
BB 
66 
DO 
8D 
18 
81 
Ag 
a) 


1420:AE A4 AF 58 68 AD 84 2c 22 | 16CB:AG AG AB AG AD AD AD AG F4 | ©268:07 1C 5B 4c 45 DO 
1428:A9 66 38 BO EB A2 62 86 93 C270:42 62 82 A2 C2 E2 
C278:AG GO Bl 3B 8D OO 


1430:FB AG OO BD OG GC 26 BF 8A . 
1438:F7 ca £6 FB AG FB DO F3_E5 | TUrDODiIsk 64 See Ce 20) 
1446:18 98 65 AE 85 AE AS AF 14 ‘ aes eer Pore a aa 

1448:69 06 85 AF 60 A9 Fc ap a2 | See instructions in article on page 64 ‘ A BD lc 60 


1458:30 DB AB OB AD OO DD 30 32 | before typing in. EE Te COE UE) 23 


1458:FB A9 17 8D 9G DD AD 90 77 
1460:DD 18 FB A9 67 BD GB DD El | C@8G:18 98 18 AD AS BD 36 3 16 


1468:A2 04 CA EA DO FC A2 G4 AE | C@O8:A9 F4 8D 31 03 AD OO BY BA 
1478:AD 88 DD BA BB BA 26 95 16 Sate ae a4 Ee es EA a8 ey . Bs ahcaeastectnokne 
1478:28 26 95 CA DO F2 A5 95 Do : Soeotaicetos tenlenvan 


1480:49 FF 99 06 Bc cB DB cc 72 | CB2G:A9 CB BD 31 G3 A 15 DO O1 
1488:A9 FD 8D 30 DB 60 AO 10 25 | CO2B:E6 BD 54 55 52 42 4F 44 BE | C2D0+84 07 AD OO O3 C5 
1498:85 FF A9 60 85 FB 85 FD DS ee 38 aS 26 a4 ao pa a <s 
1498:A9 15 85 FC A9 05 85 FE c6é | CO38: 

14A9:A5 BA 20 Bl FF AQ 6F 20 OF | CO40:55 52 42 4F 44 49 53 4B 77 | C2E8:00 C9 Ol DO 4E AD 
14A8:93 FF A5 FD A4 FE 8D FG 5c | CO48:26 41 43 54 49 56 41 54 52 

14B0:14 8C Fl 14 Ad OO BO ED EB | CO5G:45 44 OD GB 85 93 AS 93 BB 


14B8:14 26 AS FF C8 CO 66 DB 2E C@58:D8 1E AG BB Bl BB C9 24 12 
14C8:F5 AO 60 Bl FB 2G AB FF DB | C®6S:FO 16 A2 10 AD AB 9D AC EC | C308:1C 99 BB G3 CB DO 


14C8:C8 CO 26 90 F6 AS FB 69 42 | C068:C3 CA 16 FA Bl BB 99 AC BC | C310:BA 50 FE BB AD 61 
14D0:1F 85 FB AS FC 69 68 85 D6 | Cd7G:C3 CB C4 B7 90 F6 BO OB EG | C318:66 O1 CB DO F4 26 
14D8:FC A5 FD 69 26 85 FD A5 F7 | CO78:A5 93 4C AS F4 4D 2D 57 24 | C32G:A5 38 C5 47 FO 04 
14E0:FE 69 08 85 FE 20 AE FF 11 | C08G:08 68 26 AY 10 85 FF A9 EO | C328:DB 14 20 EO F5 CS 
14E8:C6 FF D@ B4 60 4D 2D 57 c3 | CO88:00 85 FB AD C2 85 FC AI 55 | C330:04 AY 23 DB O9 AD 
14F0:08 66 20 FF FF FF FF FF 1D c899:00 85 FD A9 OS 85 FE AS AF C338:0C 1C 68 18 69 18 
14P8:PF FF FF FF FF FF FF FF 21 | C098:BA 26 Bl FF A9 6F 20 93 94 | C34:A9 FF 8D 68 83 20 
1500:26 42 DB 78 AD 15 BD B7 30 | COAG:FF A5 FD A4 FE 8D 80 Co 85 | C348:A9 3A 8D 67 1c AS 
1598:1C A9 12 AG 61 8D BB G3 38 | cgas:8C 81 CB AG GG BI 7D CB 95 | C35G:CB Cl 26 58 G6 4c 
1516:8C 61 83 26 CD 5 AO 63 FB | cOBG:20 AB FF CB CO G6 DO FS AE | C358:A5 12 85 16 AS 13 
1518:85 3C A2 66 86 4B FO 2B D6 | coBB:Ad GO Bl FB 26 AB FF C8 EC | C36G:A5 06 85 18 AS 97 
1526:A6 00 Bl 3B 29 BF C9 82 E2 | cBcd:CB 26 90 F6 AS FB 69 1F 3B | C36B:A9 BB 45 16 45 17 
1528:D8 19 CB CB CB BI BD 86 55 | CBcB:85 FB AS FC 69 OO 85 FC E3 | C370:45 19 85 1A 20 34 
1530:C9 2A FO 42 C9 3F FO 84 3D | CBDI:A5 FD 69 26 85 FD AS FE 42 | C378:5A 20 94 66 50 FE 
1538:D1 3B D6 07 C8 CO 12 FO G3 | CODB:69 GB 85 FE 26 AE FF C6 32 | C380:81 1C D9 24 BG DB 
1540:35 DO EA E6 4B A6 4B EO 71 | COEG:FF DO B4 A5 BA 20 Bl FF 41 | C388:CO 6B DB FZ 69 CA 
1548:08 FO 07 BD 6E O5 85 3B 3D | COEB:A9 GF 20 93 FF A9 55 26 C9 | C399:A9 26 DB AA AD DB 
1556:D8 CE AD 98 63 FG G6 AC EG | COFS:A8 FF A9 43 26 AB FF 26 F3 | C398:18 AQ 21 2c 85 18 
1558:61 03 4C 13 65 AO FF 8D DA CGFS:AE FF 78 AQ BB 8D 11 DO FC C3AG8:2C BB 1C 38 F6 AD 
1560:08 83 20 96 95 A 3A BD 89 | C100:20 7D Cl 2C BB C4 30 53 B4 | C3A8:BB AD GO 60 AB AG 
1568:67 1C 58 4C 45 D9 G2 22 A4 | C198:A4 C3 AG C4 AS BO FO O6 EB | C3BO:AG AB AB AB AG AG 
1570:42 62 82 A2 C2 E2 E6 3B 79 | C11G:AC 62 C4 AE O3 C4 84 AE DO | C3BB:AG AB AG AD BB BB BB BO DE 
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C2D8:85 


Pirate’s Cove 
Article on page 55. 


BEFORE TYPING ... 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


KX 


408 IFR1$(I)=' 


10 X=RND(-TI) :S=54272:V=532 


48 

26 DIM T(25),R$(25),R1$(25) 
71$(8) 

30 DIM Q$(2,8),Q1$(2,25) 

40 DIM AS(2,8),A1$(2,25) 

58 DIM D(125),LO(25),LC(25) 
1L(25) 

60 POKE53281,0:POKE53280,6: 
PRINT" {CLR} 


70 FORI=@1T024:POKES+1,6:NEX 
i 


8@ PRINT"({5 DOWN)}"TAB(14)" 
RSYPIRATE COVE" :GOSUB147 
%:GOSUB1470 


90 PRINT"{9 DOWN}{7 RIGHTJA 


MINI-ADVENTURE FOR KIDS 


108 PRINTTAB(13)"E73 
{3 DOWN}[PLEASE WAIT)" 

110 FORI=12288T012607:READA 
:POKEI,A:NEXT 

128 POKE2640,193 

130 FORI=2841T02043:POKEI,1 
97:NEXT 

140 FORI=V+4OTOV+42:POKEI,2 
NEXT 

150 POKEV+39,10:POKEV+37,7: 
POKEV+38,5 

160 POKEV+29,15:POKEV+23, 1 

170 POKEV+28,1:POKEV+27,14 

180 POKEV+16,1:POKEV,0:POKE 


POKEV+4,X+48: 
POKEV+6 , X+96 

218 FORI=126681012608+23:PO 
KEI, 255 :NEXT 


228 FORI=12608+24T012608+63 


:POKEL, O:NEXT 

230 FORI=1T016:READRS$(I) :NE 
xT 

240 FORI=1T08:READQ$(1,I):R 
EADAS (1,1) :NEXT 

258 FORI=1T08:READQ$(2,I):R 
EADAS$ (2,1) :NEXT 

260 FORI=1T0160:READD(I):NE 
xT 


278 FORI=17T025:READLO(I) :NE 


xT 


288 FORI=11T025:R$(I)="HIGH 
NEXT 


SEAS": 


290 FORI=1T010:LC(I)=1:NEXT 


300 FORI=11T025:LC(I)=2:NEX 


T 
310 F1=6:F2=6:0=1 


320 FORI=1T08:1$(I)="":NEXT 


330 FORI=1T025:T(I)=0:NEXT 


340 FORT=1T025 


350 RN=INT(RND(1)*25)+1 


360 IFT(RN)=1THEN35O 
378 T(RN) 


#R1$(RN)=R$(I):L 
(RN)=LC(Z) 

386 NEXT 

390 Z=1:FORI=17025 


“TREASURE ISLA 
ND" THEN486 
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416 IFR1$(I)="SEA MONSTER'S 
LAIR" THEN480, 


IFR1$(I)="HIGH SEAS"THE 
N48 


420 


430 
440 
450 
460 
478 
480 
490 


Q1$(1,1)=9$(1,2) 
Q1$(2,1)=0$(2,2) 
A1$(1,1)=AS(1,2) 
A1$(2,1)=A$(2,2) 
Z=Z+L 
NEXT 
FORI=1T02 FR1L¢(I)="PI 
RATE COVE"THENR=I:RR=R 
NEXT 
TM=R: IFR1$(R)="TREASURE 
ISLAND" THEN1949 
PRINT" {CLR]&83CURRENT L 
OCATION: (GRN}"; 

530 GOsUB1470 
Pen 540 PRINTR1$(R) "83" 
KQ 550 PRINT" ({HOME}(2 DOWN)" 
SG 560 IFR1$(R)="HIGH SEAS"THE 
N96 
IFR1$(R)="SEA MONSTER'S 
LAIR" THEN1270 
POKE2646 , 193: POKEV+39, 1 
©: POKEV+37, 7: POKEV+38,5 
Y=81:K=1:D=5 
POKEV+3, ¥: POKEV+5, ¥ :POK 
EV+7,¥ :POKEV+21,15 
L=LEN(Q1$(1,R)) :L2=LEN( 
Q1$(2,R)) 
PRINTTAB(14-L/2) "£89 
{DOWN}"Q1$(1,R) 
Se eas oes 
R 
PRINTTAB(16)"READ MAP" 
PRINTTAB(16)"SAIL ON" 
PRINTTAB(7) "LIST INVENT 
ory" 
GOSUB1799 
ONKGOTO86S, 860, 1520, 698 
11918 
PRINT" {CLR} (3 DOWN) £83S 
AIL:(YEL}"; 
Y=81:D=4:K=1 
POKEV+3, ¥:POKEV+21,3 
PRINT" {DOWN} £83" TAB(5)" 
NORTH" 
PRINTTAB(5) "SOUTH" 
PRINTTAB(5) "EAST" 
PRINTTAB(5) "WEST" 
GOsUB1790 
IFK=1THENR=R-5 
IFK=2THENR=R+5 
IFK=3THENR=R+1 
IFK=4THENR=R-1 
IFD(((TM-1)*4)+K)=1THEN 
POKEV+21,1:GOTO510 
POKE2640 , 196 : POKEV+39, 6 
:POKEV+37,1:POKEV+38,7: 
POKEV+21,1 
PRINT"{4 DOWN}STORM AHE 
AD-GO ANOTHER WAY":PRIN 
'T"{8 DOWN)":GOSUB1896:G 
OSUB1478 
GOSUB1860 :R=TM: GOTO690 


500 
510 


520 


GE 578 


DX 580 


598 
600 


610 
620 
638 


640 
658 


668 


679 
680 


690 


708 
118 
720 


738 
748 
758 
760 
7178 
788 
790 
800 
818 


826 


MH 830 


FD 
cq 
EG PRINT" {4 DOWN} {PUR} YOU 
{SPACE]FIND "A1$(K,R) 
G$=A1$(K,R) 

IFGS$="A KEY"THENF1=1 
IFG$="A CUTLASS "THENF2= 
1 
IFLEFTS$(G$,7)= 
THEN949 
FORI=1T08 :1FG$=I$(1) THE 
N940 

NEXT 

I$(Q)=G$:Q=Q+1 
PRINTTAB(7)"{6 DOWN)":G 
OSUB186G :GOTO510 


HP 
FQ 
ES 


BX “NOTHING” 


MQ 
KP 


QE 
PS 


RE 


968 


978 
980 


POKE2040 , 192: POKEV+39,6 
: POKEV+37 


:POKEV+38 , 2 


POKEV+3 , ¥:POKEV+5,Y+POK 


EV+21,7 


990 


PRINTTAB (7) "{DOWN} E89RE 


AD MAP" 


1008 
1610 
1628 
1638 


1048 


1658 


1068 


1876 


1088 
1698 
1108 


11108 


1120 
1138 


1148 
1158 


1168 


11768 
1180 


1198 
1208 


1218 
1228 


1236 
1246 
1258 


1268 
12768 


1288 


1298 
13868 
13168 
1320 
1338 
1346 
1358 
1368 
13768 


13808 


PRINTTAB(7) "SAIL ON" 
GOSUB1799 
ONKGOTO1520,690 

REM TREASURE ISLA 


ND: 
POKE2040,193:POKEV+39, 
1 :POKEV+37, 7 :POKEV+38, 


738 

PRINT" {CLR}£83(9 DOWN) 
YOU HAVE LANDED AT TRE 
ASURE ISLAND":GOSUB189 
9 :GOSUB1470 

PRINT" {DOWNJAND FOUND 
{SPACE }THE TREASURE CH 
EST" 

PRINT"({2 DOWN) £64PRESS 
ANY KEY TO SEE IF IT 
(SPACE}WILL OPEN." 
GETKS : IFKS=""THEN1 O80 
IF Fl=1THEN1150 

PRINT" {CLR} (9 DOWN) £83 
YOU DON'T HAVE THE KEY 


PRINT" {DOWN}YOU MUST C 
ONTINUE ON YOUR JOURNE 
y," 

PRINT" (DOWN)FIND THE K 
EY AND RETURN TO 
PRINT" {DOWN} TREASURE I 
SLAND.{3 DOWN)" 
GOSUB1868 :GOTO698 
POKE2G49 ,194:POKEV+39, 
6 :POKEV+37,1:POKEV+38, 
OSUB1896 
PRINT" {CLR} &8JYOUR KEY 
OPENS THE CHEST." 
PRINT"YOU WIN" 
PRINT" {4 DOWN) £6JOTHER 
TREASURES : £83 {DOWN} " 
FORI=1T08 :PRINTI$ (I) :N 


EXT 
PRINT" {2 DOWN} E74PLAY 
{SPACE}AGAIN [Y/N] 
FK$=""THEN1216 
‘THENPOKEV+21,6 
:GOTO1250 
IEK$="N"THENSYS2048 tEN 
D 

GOTO1216 
PRINTTAB(9)“{3 DOWN) 
&73[PLEASE WAIT A MOME. 
GOTO310 


POKEV+39, 6 :POKEV+37,2: 
POKEV+38,1:POKE2640,19 


5 

Y¥=B1 :D=2:K=1:POKEV+3/Y 
:POKEV+5, ¥:POKEV+21,7: 
GOSUB1896 
PRINTTAB(6)"{DOWN}SAIL. 
AWAY" 

PRINTTAB(8) "FIGHT" 
GOSUB1796 
IFK=2THEN1390 
RN=RND(1) :1FRN? .8THENT 
M=R:GOTO690 

PRINT"{3 DOWNJNOT FAST 
ENOUGH" 

PRINT"THE MONSTER DAMA 
GED YOUR SHIP" 

PRINT "YOU MUST GO BACK 
TO PIRATE COVE AND 
PRINT"START OVER AGAIN 
+{4 DOWN)" 

R=RR: GOSUB1866 :GOTO510 


sa 
SB 


1396 
1496 


1416 


1426 
1438 


1448 
1458 
1468 


1478 
1488 


1498 


1596 
1518 
15268 
1530 


1548 
1558 
1568 
1576 
1588 


1598 
1608 


16198 
1620 


1638 
1648 
1650 


1660 


1676 
1686 


1698 


1708 
17108 


1726 
1738 


17468 
1756 
1768 
17768 
1788 


1798 
1888 


1816 
1826 
1838 
1846 


1850 
1868 


1878 
1889 
1896 
19668 


1918 


IFF2=0THEN1436 
PRINT"(2 DOWN}YOU DEFE 
ATED THE SEA MONSTER" 
PRINT"YOU MAY CONTINUE 
ON YOUR JOURNEY. 

{4 Down)" 
‘TM=R:GOSUB1860 : POKEV+2 
1,1:G0T0690 

PRINT"(2 DOWN] YOU CANN 
OT FIGHT THE MONSTER W 
ITHOUT" 

PRINT"A CUTLASS" 
GOTO1360 

--REM SOUND SUB---- 


POKES+24,15 :POKES+5,9: 
POKES+4,17 
POKES+1,6:POKES,108:FO 
RT=1T01000 :NEXT 


POKES+4,16 :FORT=1T025 
NEXT 
RETURN 


POKEV+21,0 
PRINT" (CLR} (2 DOWN}"TA 
B(7)"B9NAVIGATION MAP 
{2 DowN}" 
XS="ORYIP' 
Y$="EHI ENI" 
Z$="LEPIG" 

FORI=1T05 :PRINTTAB(7) ; 
FORJ=1T05 : PRINTX$ ; :NEX 
T:PRINT 

PRINTTAB (7); 
FORJ=1T05 : PRINTYS ; :NEX 
T:PRINT 
PRINTTAB (7); 
FORJ=1T05 :PRINTZ! 
T:PRINT 

NEXT 

FORI=1T025 
IFL(I)=1THENPOKELO(I), 
81:POKELO(I)+S,5 
IFL(I)=2THENPOKELO(I), 
45:POKELO(I)+S,6 

NEXT 

POKELO(R) ,81:POKELO(R) 
+8,7 

PRINT" {HOME} {6 DOWN} "T 
AB(27)"{GRNJQE83 = LAN 
Db" 
PRINTTAB (27) "{BLU}-£83 
= WATER" 
PRINTTAB ( 27)" (YEL}Q&83 
= CURRENT" 
PRINTTAB (31) "LOCATION" 
PRINTTAB(33)"{3 DOWN) 
{YELJN" 
PRINTTAB (33) "—' 
PRINTTAB (31) "W. 
PRINTTAB (33 
PRINTTAB (33 
PRINT" {4 DOWN)":GOSUBL 
860 :GOTO510 

GETK$ :1FK$=""THEN1799 
IFK$=CHRS (13) THENRETUR 
N 


IFK$ <>" (DOWN) "THEN1799 
K=K+1:Y=¥+8 

IFK> DTHENK=1:¥=81 
POKEV+3 ,Y :POKEV+5 ,¥:PO 
KEV+7 ,¥ 

GOTO1790 
PRINTTAB(6)"B74[PRESS 
{SPACE JANY KEY TO CONT 
INUE]" 
GETK$ : IFK 
RETURN 
FORI=1T011 :POKE53286,1 
FORT=1T025 :NEXT:NEXT: P 
OKES3286,0:RETURN 
PRINT"{2 DOWN} INVENTOR 


" “THEN187@ 


HE 


SE 


SG 


1928 
1938 
1946 
1956 
1968 
1978 
1988 
1999 
2006 
2018 


2020 
2038 


2048 
2050 
2068 
2078 
2680 
2098 
2168 
21168 
2126 
2138 
2148 
2158 
2168 
2176 
2188 
21908 
2200 
22168 
2220 
22308 
2248 
2250 
2260 
2270 
2280 
2298 
23068 
2310 
2320 
2330 
2340 
2358 


2360 


Y:{DowN}" 
FORI=1108:PRINTI$(I):N 
EXT 

PRINT" {DOWN }":GOSUB186 
6 :POKEV+21,1:GOTO520 
DATA 6,0,0,1,192,0,1,1 
92 

DATA 6,4,192,0,4,192,0 
128 

DATA 192,6,28,192,8,28 
193,192 

DATA 26,197,192,4,197, 
192,4,197 

DATA 192,1,197,192,1,1 
93,192,248 

DATA 192,207,63,255,25 
2,15,255,252 

DATA 3,255,252,178,187 
1198, 42,174 

DATA 234,16,170,168,0, 
178,128,255 

DATAD ,0,0,0,0,609,8,8 
DATA192,3,195,0,0,51,2 
40,0 
DATA15,12,3,248,192,12 
18,48 
DATAG,50,48,0,194,9,0, 
192 
DATA128,0,192,128,0,0, 
128,08 
DATAG,128,0,2,0,0,86,6 
4 

DATAS ,85,84,21,85,80,1 
185 

DATAG4 ,6,21,8,0,6,0,0 
DATAS ,8,8,1,64,0,0,808 
DATAG,B,28,8,0,5,0,8 
DATA1,64,6,0,80,21,85, 
80 

DATA16 ,8,16,18,170,16, 
18,34 

DATALG ,208,32,16,16,32 
128,16 
DATA32,16,208,32,19,21 
185,88 

DATAG , 6, 204,48,12,48,0 
1195 
DATA12,12,12,48,6,0,19 
2,0 
DATAG,16,0,6,32,0,0,8 
DATAG,G,8,0,0,8,0,72 
DATA32,33,34,32,136,0, 
178, 
DATAG,158,0,16,182,160 
160,158 
DATA1O,126,182,2,64,17 
G,1,2 

DATA8, 128,8,8,32,8,32, 
32 
DATA16,32,4,0,32,9,0,8 
DATAG,G,4,0,0,6,0,0 
DATA 1,84,0,4,1,64,4,0 
DATA 26,16,0,1,16,80,1 
17 

DATA 6,1,64,0,65,64,0, 
68 

DATA 16,1,80,5,84,128, 


128,48 

DATA 8,8,50,0,0,192,20 
@,32 

DATA 200,192,0,192,194 
135,195,32 


DATA 3,35,0,3,3,8,3,12 
DATA 8,0,12,0,0,12,0,7 
2 

DATA TREASURE ISLAND, 
{SPACE }SEA MONSTER'S L 

AIR, BLUEBEARD'S BAY 
DATA MERMAID'S LAGOON, 
CAPT. HOOK'S SWAMP, S 
PICE ISLAND 

DATA JEWEL ISLAND, SKE 


AP 


MB 


2378 


2380 
2390 
2400 
2410 
2428 
2430 


2440 
2458 
2468 
2478 
2480 


2490 
2500 
2516 


25208 
25308 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


LETON INLET, BARBARY C 
OAST, PIRATE COVE 

DATA SIFT THROUGH SAND 
» A FEW PIECES OF EIGH 
ir 

DATA SEARCH ISLAND, 
THING OF INTEREST. 
DATA SEARCH OLD GALLEO 
N, SOME SILVER JEWELRY 
DATA SEARCH ISLAND, EX 
OTIC SPICES 

DATA SEARCH HARBOR, A 
{SPACE }CUTLASS 

DATA SEARCH SWAMP, NOT 
HING BUT SNAKES 

DATA SEARCH JUNGLE, A 
(SPACE } BEAUTIFUL PARRO 
T 

DATA SAIL ALONG COAST, 
NOTHING OF INTEREST. 
DATA SEARCH ALONG DOCK 
« NOTHING OF INTEREST. 
DATA SEARCH NATIVE HUT 
S, A KEY 

DATA SEARCH STREAM, NOT 
HING BUT ALLIGATORS 
DATA SEARCH ALONG CLIF 
FS, NOTHING OF INTERES 
1, 

DATA SEARCH WOODS, NOT 
HING OF INTEREST. 

DATA SEARCH WRECKED SH 
IP, SOME GEMS 

DATA SEARCH OLD SHIP, 
(SPACE }NOTHING BUT AN 
(space }oLD compass. 
DATA COMB BEACHES, A 
EW DOUBLOONS 


No 


81,1284 
DATA 1392,1395,1398,14 
01,1404 

DATA 1512,1515,1518,15 
21,1524 

DATA 1632,1635,1638,16 
41,1644 

DATA 1752,1755,1758,17 
61,1764 


Turbo BootMaker 


Article on page 67. 


AC 108 PRINT" (CLR}{2 Down} 


GP 


GH 


PQ 


xc 


110 


120 


136 


14 


150 


{WHT} "CHRS$(8)CHRS(14) :P 
RINT TAB(16)"** TURBOBO 
OTMAKER **":ZS=CHRS$(8) 
FOR AD=822 TO 915:READ 
(SPACE } BY :CK=CK+BY : POKE 
AD, BY:NEXT:IF CK=11597 
THEN 130 

PRINT"(2 DOWN} {RVSJERRO 
R IN DATA STATEMENTS |": 
STOP 

PRINT" {DOWN} {2 SPACES}I. 
NSERT A DISK CONTAINING 
TURBODISK. 
PRINT TAB(7)"PRESS 
(RVS} RETURN TOFF} WHEN 
READY. 

GET K§:IF K$<>CHR$(13) 
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168 


EF 170 


GA 


186 


208 


PH 210 


SE 220 
230 


240 


250 


260 


JH 288 


SH 298 


SX 300 


AC 318 


326 


338 
340 


350 


360 


QM 376 


KQ 380 


BD 390 


PD 409 


KP 416 


IR 4208 


{SPACE}THEN 158 

CLOSE 15:0PEN 15,8,15," 
I@":GOSUB 500:IF E THEN 
608 

T$=""; PRINT" {DOWN }NAME 
{SPACE }OF TURBODISK FIL 
Er"sINPUT T$:IF TS="" 7 
HEN 170 

OPEN 1,8,8,"0:"+T$+",P, 
R":GET#1,A$,B$:GOSUB 50 
O:IF E THEN 608 


36,,TH:POKE 861, TL: POKE 
(SPACE }862,TH 
TS=49152:TE=TS:PRINT TA 
B(7)"(DOWNJREADING: "T¢ 
FOR SS=@ TO 1:GET#1,A$: 
SS=ST:POKE TE,ASC(AS$+Z$ 
) :TE=TE+1 :NEXT 

CLOSE 1:IF ST<>64 THEN 
{SPACE }PRINT"{2 DOWN} 
{RVSJERROR READING TURB 
ODISK PILE. ":STOP 
PRINT" {DOWN} INSERT THE 
DISK ON WHICH YOU WISH 
TO":PRINT" CREATE THE 
(SPACE]BOOT FILE.“ 
PRINT TAB(7) "PRESS 
{RVS} RETURN TOFF} WHEN 
READY." 

GET K$:IF K$<>CHRS$(13) 
{SPACE}THEN 250 
PRINT#15, "IO":GOSUB500: 
IF E THEN6OG 

+PRINT" (DOWN ] NAME 
{SPACE JOF PROGRAM TO TU 
RBOBOOT: ": INPUT P$:IF P 
* THEN 296 

EN(P$) :POKE 874,P:FO 
=1 TO P:POKE 8994+1,A 
SC(MID$(P$,I)) :NEXT 
OPEN 1,8,8,"0:"4P$+",P, 
R":GOSUB 500:CLOSE 1:IF 
E=@ THEN 316 

IF E=62 THEN PRINT" 
{DowN} REMEMBER TO PUT 
{SPACEJA COPY OF "PS$:PR 
INT" ON THIS DISK." 
PRINTTAB(5)"{DOWNJIS TH 
E PROGRAM BASIC OR ML?" 
:PRINTTAB(9)"PRESS _ 
{rvs} B (oFF) or (Rvs) 
{spaceyM (orFr)" 

GET K$:IF K$="B" THEN 3 
80 

IF K$<>"M" THEN 320 
AS="": INPUT" (DOWN ]START 
ING ADDRESS"; A$:IF AS$=" 
“ THEN 346 

D=0:IF LEFT$(A$,1)<>"§" 
THEN D=VAL(A$):GOTO 37 
ty 

FOR I=2 TO LEN(A$) :A=(A 
SC(MID$(A$,I))AND 127)- 
48 :D=(16*D)+A+(7*(A>9)) 
NEXT 

DH=INT (D/256) :DL=D-(256 
*DH) :POKE 891,76:POKE 8 
POKE 893,DH 
PRINT" (DOWN }NAME 
(SPACE}FOR TURBOBOOTING 
PILE: ":INPUT BS:IF BS$= 
"" THEN 380 

OPEN 1,8,8,"0:"+BS+",P, 
GOSUB 500:IF E THEN 
{SPACE} 600 

PRINT TAB(7)" {DOWN }WRIT 
ING: "B$ 
PRINT#1,CHR$ (38) ;CHRS$(3 
) + CHRS (54); CHRS$ (3); 

FOR AD=808 TO 915:PRINT 
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XK 


PA 


430 
440 
450 
588 
608 
610 


620 


630 
822 
832 
842 
852 
862 
872 
aa2 


892 


#1,CHRS$(PEEK(AD) ) ; NEXT 
FOR AD=TS TO TE:PRINT#1 
+ CHRS (PEEK (AD)) ; :NEXT 
CLOSE 1:GOSUB 560:IF E 
(SPACE }THEN 606 

CLOSE 15:PRINT"(2 DOWN) 
"B§" WILL NOW TURBOBOOT 
"PS END 
INPUT#15,E,E$:RETURN 
CLOSE 1:PRINT" (DOWN) 
{RVS}"; 
IF E=62 THEN PRINT"NO F 
ILE WITH THAT NAME ON T 
HIS DISK.":GOTO 176 

IF E=63 THEN PRINT "THAT 
NAME IS ALREADY USED O 
N THIS DISK.":GOTO 380 
CLOSE15:PRINT “DISK ERRO 
Ri"; E;E$:END 

DATA 32,138, 255,169,148 
116 ,3,133,251,132 
DATA 252,169,0,166,192, 
133,253,132,254,160 
DATA 8,177,251,145,253, 
200, 208,249,230,252 
DATA 236,254,165,254,20 
1,196, 208,239,32,0 
DATA 192,32,68,229,166, 
186 ,168,1,32,186 

DATA 255,169,1,162,132, 
166,3,32,189,255 

DATA 169,6,32,213,255,1 
34,45,132,46,32 

DATA 94,166,32,142,166, 
76,174,167,42,6,0,8,0,8 
10,0 ,8,0,0,8,0,0,0,0 


Slots 


Article on page 51. 


gc 


KG 


MF 
KG 


xQ 


KA 


HS 


ED 


HD 


10 
20 


30 
40 


50 


66 


78 


80 


90 


POKES6 , 48 :POKE5S ,@:CLR:G 
oro48 
POKEXR, ¥C: POKEXR+1,X:POK 
EXR+2, 6 :SYS65520: RETURN 
X=111¥C=23 :GOTO20 

IFPEEK (808 )=237THENPOKES 
3281, 15:POKES3280,151KB= 
198:FL=1:XR=781 :GOTO60 
KB=239 :FL=0 :XR=2035 :POKE 
65305, 241 
GOSUB470:PRINT" (CLR) 

(5 DoWN}":C$(0)=" {PUR} To 
K {DOWN} (3 LEFT}LMN":C${T 
sy tea ecg (C88). e3 
6 


IFFL=0 THENPOKE] 2909 , 8 :PO 
KE12916,255 

PRINT" {GRN} (2 SPACES) 
{rvs}{4 spaces} {OFF} 
3 SPACES} ({RVS} 
SPACES} {OFF} 
SPACES } [RVS} 
SPACES} (OFF} 
SPACES } {RVS} 
SPACES} {OFF} 
SPACES} {RVS} 
SPACES} { OFF} 
SPACES } {RVS} 
SPACES} { OFF) 
SPACES } {RVS} 
SPACES} {OFF} 
SPACES } {RVS} 
SPACES}"; 

PRINT" {OFF}{6 SPACES} 
(rvs) {2 SPACES} {OFF} 
{2 spaces} {rvs} 

{2 spaces} {OFF} 

(4 spaces} {Rvs} 

{2 SPACES} (OFF) 


{3 
{2 
(2 
{2 
{2 


iS 


QD 


SD 


FD 


BQ 


FB 


SPACES} {RVS} 
SPACES) {OFF} 
SPACES} {RVS} 
SPACES} {OFF} 
SPACES} {RVS} 
SPACES} (OFF) 
spaces} (Rvs} 
SPACES) {OFF} 
SPACES} (RVS} 

{2 spaces} {OFF} "; 
199 PRINT" (RVS}({2 SPACES) 

(oun SPACES} {RVS} 

{2 SPACES} {OFF} 
SPACES} [RVS} 
SPACES } {OFF} 

7 spaces} {avs} 
4 SPACES} [OFF 
SPACES} (RvS} 
SPACES) (OFF } 
SPACES} (RVS} 
SPACES} {OFF} 
SPACES} {RVS} 
2 BEAcES OFF 
4 SPACES 
2 SPACES) (OFF} "; 
116 PRINT"(4 SPACES}(RVS} 
SPACES } {OFF} 
SPACES} {RVS} 
SPACES } {OFF} 
SPACES} {RVS} 
SPACES} (OFF} 
SPACES} {RVS} 
SPACES} {OFF} 
SPACES} (RVS} 
SPACES} {OFF} 
SPACES} (RVS} 
SPACES} {OFF} 
SPACES} (RVS} 
SPACES } {OFF} 

{2 spaces} {Rvs} 
128 PRINT"(2 SPACES} {OFF} 
2 SPACES}(RVS} 

3 SPACES } {OFF} 
2 SPACES) {RVs} 
2 SPACES) {OFF} 
6 SPACES) {RVS} 
2 SPACES) (OFF) 
2 SPACES} (RVS} 
2 SPACES) {OFF} 
4 SPACES} {RVS} 
2 SPACES} {OFF} 
4 SPACES} {RVS} 
2 SPACES) {OFF} 
2 spaces}{Rvs} 
2 SPACES} (OFF) 
3 SPACES) (RVS} 
4 SPACES} {OFF} 
3 SPACES}(RVS}"; 
13@ PRINT"{6 SPACES} {OFF} 

{3 SPACES} {RVS} 
SPACES } {OFF } 
SPACES} {RVS} 
SPACES } (OFF } 
SPACES} (RVS} 

4 SPACES) (OFF})" 


148 os vesol cosubagsPRINe 
"DO YOU WANT TO GO FIRS 
T":POKEKB,@ 

15@ GETY$:IFY$<>"Y"ANDY$<>" 
N"THEN156 

168 L1=@ :GOSUB439 


17@ Li=1:SYS12445 

180 PRINT" (CLR}(2 DOWN} 
(GRN]"SPC(4); :FORA=1TO8 
:PRINTA" ";:NEXT 

199 PRINT" (BLK}":FORA=1TO16 
sPRINT"(3 SPACES}~ 


{3 SPACES}-[3 SPACES }- 
{3 spacrs}=[3 spacEs]= 


{3 spaces }=(3 sPAcES)= 
{3 SPACES}=[3 SPACES}=" 
:NEXT 


FS 
AM 
BK 
RG 
EC 


XG 


PD 


DM 
ED 


FC 
AC 


PH 
GR 


oF 
FE 


oF 


QH 


PM 


oH 


cD 
SH 


QA 
RD 
PP 


EQ 


EC 
RQ 


MB 


cD 


ME 
Po 


DH 


GQ 


cs 


BR 


gg 
PS 
sQ 


AS 


208 
216 
226 
238 
246 


258 


268 


278 
280 


298 
388 


310 
326 


3308 
348 


358 
368 


378 


388 


398 
408 


410 
420 
430 


440 


450 
460 


470 


480 


490 
508 


510 


528 


530 
548 


550 
560 


571 


a 


586 


PRINT"({3 SPACES) (RVS)} 
{33 SPACES}" 

'Y"THEN250 

Y=INT( RND(TI+Y)*7+.2) 
POKE12288+Y, 255 : POKE123 
69+¥ , Y+9 

X=4+Y*4:YC=17 :GOSUB26 :P 
RINTC$(0) 
GOSUB3:PRINT"(BLU} YOU 
R MOVE (1-8){3 SPACES) 
{2 LEFT)"; :POKEKB, 9 
GETYS$ : IFY$="L"THENGOSUB 
430 :GOSUB30:PRINT" 

(2 upP}(17 sPpAcEs}":GoTO 
250 
IFY$<"1"ORY$>"8"THEN260 
Y=VAL(Y$)-1:POKE12400,Y 
:TK=1 :CL=1 :GOSUB390 
IFYC<5THEN360 

GOSUB3@ :PRINT"{ PUR} COM 
PUTER MOVES ":SYS12468 
P5=PEEK(12397) :IFP5=1TH 
EN360 

Y=PEEK (12389) :TK=255 :CL 
=0 :GOSUB396 
IFP5=255THEN370 

GOSUB30 :PRINTSPC(15)¥+1 
“ (LEFT) {4 SPACES)" 
FORI=1T01800 :NEXT :GOTO2 
58 

GOSUB36:PRINT" (GRN} 

{5 SPACES}YOU WIN 

{8 SPACES}":GOTO380 
GOSUB30 :PRINT" {GRN) 

{5 SPACES}YOU LOSE 

{7 SPACES}" 
FORI=1103500 :NEXT:GOTO1 
40 

P=PEEK(12369+Y) 
POKE12288+P, TK: POKE1236 
9+¥,P+9 
P1=INT(P/9):P2=INT((P/9 
-P1)*9+.1) 

X=P2*4+4 :¥C=17-2*P1 :GOS 
UB2@ :PRINTC$ (CL) : RETURN 
GOSUB3:PRINT" (GRN} 

{2 uP}{4 LEFT) 

{4 SPACESJENTER LEVEL ( 
1-4){4 SPACES}":POKEKB, 
a 


GETAS :TFAS<"1"ORA$> "4"T. 
HEN440 

L=VAL (A$ ) : 1FLLTHENL=L~1 
POKE12399 , L: POKE12397,0 
RETURN 

PRINT" (CLR}":X=14:¥C=12 
:GOSUB26 :PRINT" {BLK} PLE 
ASE WAIT" 
IFFLTHENPOKES6334 , 0: POK 
E1,51 

IFFL=0 THENPOKE1177,62 
FORA=6T02647 : POKEA+1 433 
6, PEEK (A+53248) :NEXTA: 1 
FPL=OTHENPOKE1177 , 63 :GO 
T0520 

POKE1 , 55 :POKE5S6334,129: 
POKE53272, 30:GOTO539 
POKE65298 , PEEK (65298) AN 
D251 : POKE65299 , PEEK( 652 
99) AND30R56 
FORA=584T0631 : READB: POK 
EA+14336,B:NEXT 

C=O : FORA=12402T012972:R 
EADB: C=C+B: POKEA, B:NEXT 
+IFC=58347THENRETURN 
PRINT"(CLRJERROR IN DAT 
A":STOP 

DATA 6,3,15,31,63,63,12 
7,127 

DATA 254,255,255,255,25 
5,255,255,255 

DATA @,128,224,240,248, 


xQ 


HB 


DD 


KD 


xQ 


HP 


BF 


cele} 


QD 


cc 


BF 


HK 


GK 


598 
608 
610 
620 


638 


646 


658 


668 


680 


699 


700 


710 


7208 


730 


749 


758 


766 


778 


780 


798 


EL) 


816 


820 


830 


840 


248,252,252 

DATA 127,127,63,63,31,1 
5,3,8 

DATA 255,255,255,255,25 
5,255,255,254 

DATA 252,252,248,248,24 
0,224,128,8 

DATA 255,1,8,248,16,246 
1247,1,255,1,255,255,1, 
255,1,8,2,8,36 

DATA 6,1,2,16,142,108,4 
8,174,167,48,189,129,48 
+24,121,93,48,153,93 
DATA 48,174,108,48,96,2 
6,111, 48,166,7,152,153 
,81,48,136,16,249,168,8 
a 


DATA 169,6,153,6,48,136 
116,248,96,172,111,48,1 
69,8,153,97,48,9,64 
DATA 153,93, 48,41,0,136 
716,243,208,169,1,141,7 
5,49,169,8,141,141,48 
DATA 169,121,141,57,49, 
169,7,141,110,48,174,11 
2,48,189,81,48,56,233,9 
DATA 157,81, 48,32,12,49 
7169,1087, 141, 141, 48, 174 
,112,48,189, a1, 48,24,16 
5 

DATA 9,157,81,48,173,18 
9,48,208,8,169,8,141,18 
9,48,76,95,49,96,198 
DATA 89, 48,189,81, 48,14 
1,165,48,169,0,141,106, 
48,170,173,105,48,141,1 
13 

DATA 48,173,166,48,208, 
5,169,8,141,167, 48,189, 
114,48,24,169,113,48,14 


1 
DATA 113,48,141,54,49,1 
73,1, 48,217,121, 48,208, 
19,238,1687,48,32,137,48 
DATA 173,187,48,201,3,2 
@8,222,169,1,141,109,48 
196,173,166,48,73,1,141 
DATA 166,48,232,236,110 
748,208,186 ,96,169,0,15 
3,89,48,198,89,48,189,8 
1 


DATA 48,261,54,144,30,2 
@1,63,176,8,169,0,153,9 
3,48,76,146,49,185,89 
DATA 48,153,161,48,185, 
125,48,141,109,48,153,9 
7,48,76,151,58,74,74,74 
DATA 24,121,93,48,153,9 
3,48,169,129,141,144,48 
,169,121,141,57, 49,169, 
7) 

DATA 141,116,48,32,9,49 
1169,6,141,169,48,185,1 
25,48,141,75, 49,169,133 
DATA 141,144,48,169,125 
1141,57,49,169,7,141,11 
6, 48,32,9,49,173,109,48 
DATA 240,12,153,97,48,1 
85,89,48,153,101,48,76, 
151,56,169,6,141,109, 48 
DATA 196,89,48,189,81,4 
8,24,105,9,141,105,48,1 
690,141,106, 48,179,173 
DATA 105,48,141,113,48, 
173,186,48,208,5,169,8, 
141,167,48,189,114,48,2 


4 

DATA 169,113,48,141,113 
148,141,11,50,173,221,4 
8,217,121, 48,208,18,238 
+187 

DATA 48,173,107,48,261, 


Pc 


HP 


BP 


SH 


SH 


BX 


Boldface 


Article on page 70. 


850 


860 


870 


888 


8908 


908 


910 


3,208,225,169,6,153,93, 
48,76 ,50,58,173,106,48 
DATA 73,1,141,106,48,23 
2,236,118,48,288,187,28 
4,111,48,248,53,1908,89, 
48 

DATA 189,81,48,141,68,5 
@,185,125,48,141,221,48 
+24,169,9,125,81,48,157 
DATA 81,48,206,32,95,49 
+169,8,141,169,48,190,8 
9,48,189,81,48,56,233 
DATA 9,141,166,59,157,8 
1,48,169,6,141,221,48,1 
73,18,208,41,3,24,121 
DATA 93,48,217,97,48,14 
4,9,153,97,48,185,89,48 
7153,101,48,169,64,153 
DATA 93,48,190,89,48,22 
4,7,240,8,152,170,254,8 
9,48,76,108,49,136,48 
DATA 18,286,152,170,185 
297, 48,74, 202,208, 252,1 
36,24,121,93,48,153,93, 
48,96 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


BEFORE TYPING . 


GA 


KeyDef 


Article on page 71. 


HC 


AF 


SP 


16 


20 
38 


40 
50 


68 
78 


10 
20 


60 


INPUT" {CLR} {DOWN} FILENA 
ME"; FFS:IF FF$="" THEN 1 
o 


$:PS=PS+1:IF A$=CHR$(13) 
OR PS=88 THEN 50 

IF PL=@ THEN 30 
PRINT#6,CHRS$(1):PRINT#4, 
TL$ : PRINT#6, CHR$ (17) :PRI 


NT#4,TL$:TLS="":PS=0 

IF FL=@ THEN 30 

CLOSES :CLOSE6 : PRINT#4:PR 
INT#4 :CLOSE4:PRINT"END O 
F DOCUMENT" 


IF PEEK(7166)=175 THEN 5 
@:ELSE POKE 7166,175 
FAST: BANK15 :FORI=@ TO 5: 
K=I: 1FI=4THENK=@ : ELSEIFI 
=5THENK=4 

FORJ=6 TO 88:POKE 5888+I 
*89+7, PEEK (64128+K*89+5) 
:NEXTI, I 

BANK6 : SLOW 

FORI=@T09 :K(I) =PEEK (4096 
+1) :POKE4096+1,0:NEXT:TR 
AP 180: DIMKS$(86) :FORI=OT 
086 : READK$ (I) :NEXT 

DATA INST/DEL,RETURN,CR 
(SPACE) RT/DN,F7,F1,F3,F5 
+CR DN/UP,3,W,A,4,2,S,E, 
15,R,D,6,C,F,T,X,7,¥,G,8 
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oF 


FS 


FG 


cE 


SK 


sD 


GB 


GE 


FQ 
FK 


+B,H,U,V,9,1,0,0,M,K,£, 
N,+,P,L 18,/,0,%, 


78 DATA CLR/HOME, tr/ilr< 
112, SPACE, ,Q,RUN/STOP, HE 
LP,,5,TAB,2,4,7,1,ESC,+, 
~, LF, ENTER, 6,9,3,,8, +4CR 


SX 
MB 


220 
230 
248 


250 


1:GOT0230 
PRINT#1,CHR$(A); 
NEXTX : RETURN 

DATA 23,17,8,33,6,104,3 
112,3,14G,2,167,0,176, 
0,175,8,258,1, 261,4 
DATA 274,4,277,4,286,4, 


UP,CR DN,CR LT,CR RT 


80 FORI=6705 :A=5888+1*89:PO 
KE830+1I*2, AAND255 : POKE83 
1+1*2,A/256 :NEXT 

90 IFRGR(@)=0 THEN COLORS,1 


COLOR4, 1 :COLORS,13:ELSE 
COLOR 6,1:COLOR 5,4:FAS 


T 


199 


11a 


128 


138 


146 
158 


160 


170 
188 


SCNCLR: PRINTCHRS(11);CH 


PRINT" (DOWN ) PRES 
0 BE REDEFINED: " 
PEEK(213):LOOP UNTIL A< 
88 :PRINTK$ (A) : POKE208, 8 
PRINT"1> UNSHIFTED" 
NT"2> SHIFT" :PRINT 
OMMODORE™:PRINT"4> CONT 
ROL":PRINT"5> ALT": PRIN 
T™6> CAPS LOCK™ 
PRINT"WHICH TABLE"; :GET 
KEYTS$ :T=VAL(1T$)-L:1F(T< 
8) OR(T>5)THENP RINT :GOTO 
128 

PRINT"({DOWNJOLD ASCII C 
ODE="PEEK( 5888+T* 894A) 
INPUT"NEW ASCII CODE";C 
:IF C>255 THEN 150:ELSE 
POKE5888+T* 89+A,C 
INPUT"DO ANOTHER KEY 

{2 SPACES)¥(3 LEFT}";A$ 
:IFASS"Y"THENL16 
FORI=0TO09 : POKE4096+1,K( 
I) :NEXT: END 

IF ERR=3@ THEN RESUME:E 
LSE PRINT: PRINT "2"ERRS ( 
ER)" ERROR IN"EL 


TurboDisk 
Relocator 
Article on page 66. 


AB 


XH 


DK 


EF 


DR 


PM 


Qa 
gc 


JE 


FQ 


oF 


xK 


168 


116 


126 


130 


149 


150 


160 
178 


180 


198 


260 
218 


PRINT" (CLR) (WHT) 

{11 spaces} {RVS}TURBODI 
SK RELOCATOR(OFF) 

{2 DOWN)":OPEN15,8,15 
OPEN2,8,4, "TBDSK -CO0,P 
+R" :GOSUB168 
GET#2,A$,A$ 

INPUT"NEW BOOT NAME"; PN 
$:OPEN1,8,3,PNS+",P,W": 
GOSUB160 

INPUT"NEW ADDRESS FOR T 
URBODISK";AD:SP=INT(AD/ 
256) 
PRINT#1,CHR$ (0) ; CHRS(SP 
) ; :GOSUB18@:GOSUB196:CL 
OSE1:CLOSE2:END 
INPUT#15,E,E$,T,S:IFE=0 
THENRETURN 
PRINTE, E$ :CLOSE1 :CLOSE2 
:STOP 

DIM PO(24),VO(24) sREADN 
:FORX=1'TON: READPO(X), VO 
(X) :NEXTX : RETURN 
N=1:N$=CHR§ (0): PRINT" 
{pown} {13 RIGHT) (RVS}TA 
RGET{OFF} = 956":FORX=0 
TO956 

PRINT"{HOME}{6 DOWN}"X: 
GET#2,A$ : A=ASC(AS+NS) 
IFX=PO(N)THEN A=SP+VO(N 
) :PRINT#1,CHRS (A); :N=N+ 


102 COMPUTE!'s Gazette August 1986 


291,1,294,1,297,4,304,1 
1314,4,321,4,326,4 
DATA 332,1,361,4,431,4 


Power BASIC: BASIC 
Line Extender 
Article on page 76. 


CB 260 


Program 1: BASIC Line 
Extender—64 Version 


AQ 18 POKESS,@:POKES6, PEEK(56) 
- AD=PEEK (56) *256:P 
RINT" {CLR} {DOWN} WORKING. 
+e "2058 
FORI=ADTOAD+129:READB: 
C+B:POKEI,B:NEXT:TFC<>13 
921THENPRINT"DATA ERR 
TOP 
POKEAD+4 , PEEK(772) : POKEA 
D+5,PEEK(773) 
POKE773,AD/ 256: POKE772,A 
D-256*PEEK(773) 
PRINT" {CLR} {DOWN} "CHRS( 
34)"BASIC LINE EXTENDER" 
CHR$(34)" IS OPERATIONAL 
.":NEW 
DATA 138,246,3,76,124,16 
5,32,124,165,173,0,2,201 
158, 240,9, 261,92 
DATA 246,5,201,34,240,1, 
96,132,11,32,19,166,104, 
104,176,3, 76,237,164 
DATA 162,2,134,39, 202,17 
3,0,2,201,58,208,3,236,1 
1,202,134, 38,160,1,177 
DATA 95,170,136,177,95,2 
08,1, 202,134,96,170,202, 
229,95, 24,161, 11,144 
106 DATA 5,162,23,108,0,3,1 
34,95,165,45,133,90,165 
111, 233,6,133,11,161,96 
DATA 133,88,164,46,132, 
91,144,1,208,132,89, 32, 
184, 163,165,49, 164,50 
DATA 133,45,132,46,164, 
11,177,38,145,95,136,16 
1249,76,42,165,8 


20 


QK 


OF 30 


QP 48 


PA 50 


AG 60 


HE 70 


cB 8d 


gD 90 


HG 


ap 116 


FM 120 


Program 2: BASIC Line 


Extender—Plus/4 and 16 Version 
JJ 10 AD=828:PRINT"(CLR} (DOWN) 
WORKING... ":C= 
FORI=ADTOAD+177:READB:C= 
C+B: POKEL , B:NEXT:IFC<>19 
323THENPRINT"DATA ERR":S 
TOP 
POKEAD+4, PEEK (772) :POKEA 
D+5, PEEK(773) 
POKE773,AD/256 :POKE772,A 
D-256*PEEK(773) 
PRINT" {CLR} (DOWN) "CHRS( 
34) "BASIC LINE EXTENDER" 
CHRS$(34)" IS OPERATIONAL 
.":NEW 
208 DATA 138,240,3,76,86,13 
7,32,86,137,132,11,162, 
255, 232,189,0,2, 201, 32 
210 DATA 248,248, 201,48,144 
14, 201,58,144,240,134,3 


FA 20 


OF 36 


QP 40 
PA 50 


pe 


MH 


Rie 


QP 


QD 


DP 


cR 


BH 


220 


230 


240 


258 


268 


278 


288 


298 


1189,68,2,201,58,248,9 
DATA 261,92,248,5,201,3 
4,248,1,96,162,255,232, 
189,0,2,268,250,138,56 
DATA 229,3,133,4,198,4, 
32,61,138,104,104,176,3 
1 76,133,135,165,4,133 
DATA 11,162,2,134,39, 20 
2,164,3,185,0,2,201,58, 
208,3,238,11, 202,138 
DATA 24,161,3,133, 38,16 
9,1,177,95,178,136,177, 
95, 208,1,262,134,96,170 
DATA 262,229,95,24,161, 
11,144,5,162,23,108,0,3 
1134,95,165,45,133,98 
DATA 165,11,24,181,90,1 
33,88,164,46,132,91,144 
11, 206,132,89,32,192,13 
6 

DATA 165,49,164,50,133, 
45,132,46,164,11,177,38 
1145,95,136,16,249,32,1 
52 

DATA 138,32,24,136,76,1 
5,135 


128 Sprite Rotator 


See instructions in article on page 74 
before typing in. 


BEFORE TYPING .. . 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


Program 1: Race Car Demo 


XP 


MR 


DE 


JE 


18 
20 
30 
40 


58 
68 


76 
Et) 


98 
108 


118 
126 
136 
1468 
158 
160 


176 


188 : 


199 
208 
218 
226 
230 


FOR S=1 TO 8 : 
@ : NEXT S 
COLOR 6,1 : COLOR 1,4 : 
{SPACE]COLOR 4,5 
COLOR 5,4 : GRAPHIC 0,1 
{SPACE}: SCALE 6 
PRINT "(CLR) DEMO ROTATE 
D SPRITES " 
BLOAD "DRAGSTER.SPR” 
IF DS THEN PRINT DS$ : S 
‘TOP 
PRINT 
Dae 
PRINT " PRESS FIRE BUTTO 
N To quit" 
DIM SS$(8) 

FOR S=1 TO 8: 
SS§(S): NEXT 
SPRITE 1,1,4,0 
MOVSPR 1,158,100 

DO UNTIL JO¥(2) AND 128 
: DO WHILE Joy(2) AND 1 
3 

:(3 SPACES}JS%=JOY(2) A 
ND 15 

:(3 SPACES}SPRSAV SS$(J 
St),1 

:(3 SPACESJON JS% GOSUB 

210,220,230, 240,258, 26 
8,278, 2280 
Loop 
LOOP 
END 
MOVSPR 1,+0,-7 : 
MOVSPR 1,+5,-5 : 
MOVSPR 1,+7,4+8 + 


SPRITE S, 


“ USE JOYSTICK POR 


SPRSAV S, 


RETURN 
RETURN 
RETURN 


BR 
MQ 
Bo 
HR 
HP 


240 
2568 
268 
278 
280 


MOVSPR 
MOVSPR 
MOVSPR 
MOVSPR 
MOVSPR 


1,45,45 
1,+8,47 
1,-5,45 
1,-7,48 
1,-5,-5 


Program 2: Sprite Data 


BEOO :03 
GEG8 80 
GE16:20 
GE18:99 
GE20:08 
QE28:F8 
9E30:8B 
@E38:88 
0540 :00 
E48 :00 
OESO:1E 
GE58:68 
GEGD 208 
GEG68:CB 
GE76:01 
GE78:08 
OEBO:FE 
GE88:00 
GEIB 108 
GE98:7F 
QEAG:FO 
BEAB : 80 
QEBO:FE 
GEBB: 08 
BECO 389 
BECB: 08 
BEDO:DB 
BEDS :6F 
GEEG :60 
GEES :07 
BEFO 280 
BEFS:08 
GFOO:FB 
OFros:88 
OF10:FC 
OF18:00 
OF20:00 
OF28:70 
OF30:03 
OF38:00 
OF40 388 
9F48:08 
OP50:5E 
OF58:08 
OF60:98 
OF68:00 
OF70:03 
OF78:00 
OF8G 160 
OF88:08 
@F90 :08 
OF9I8:F8 
OFAG:FO 
GFAB:03 
OFBO:88 
OFBB:68 
8FCO:00 
OFC8 108 
@FDB:Co 
OFDB :BE 
OFEG:98 
OPES :3F 
OFFO:81 
OFF8:08 


BE 
02 
oo 
7 
oo 
oo 
FE 
89 
oo 
20 
20 
3B 
TE 
20 
ES 
88 
6 
82 
88 
co 
TE 
88 
ao 
82 
6a 
Cr 
oo 
EO 
4c 
co 
GE 
60 
8B 
SF 
88 
F8 


oo 
AA 
80 
00 
Fa 
F9 
88 
FC 
oo 
6c 
oo 
Er 
EO 


02 
20 
26 
60 
88 
FC 
8F 
88 
06 
oo 
OF 
ce 
20 
co 


AA 
63 
oo 
18 
ao 
F8 
FF 
F8 
00 
00 
80 
FQ 
2F 
20 
cc 
00 
00 
FE 
FB 
FC 
7E 
FB 
ao 
FE 
Do 
03 
00 
EO 
38 
8o 
04 
00 
FC 
8B 
FB 
FB 
oo 
00 
AA 
83 
DO 
20 
oo 


00 
AE 
oo 
06 
F8 
89 
88 
86 
a0 
1E 
30 
oo 
EO 
93 
Th 
20 
00 
00 
TE 
20 
co 
16 
06 
oo 
oo 
FB 
OF 
Cl) 
1A 
oo 
oo 
00 
88 
FE 
oo 
oo 
70 
oo 
oo 
8E 
00 
FC 
oe 


Program 3: Sprite Rotator 


& 
3 
=} 
a 
Zz 


XP 18 FOR S=1 TO 8:SPRITE S,0: 


NEXT S 

MR 26 COLOR @,1:COLOR 1,4:COLO 
R 4,5 

QS 38 COLOR 5,4:GRAPHIC 6,1 

FF 40 PRINT "{DOWN} HI-RES SPR 
ITE ROTATOR{DOWN}" 

DC 5@ INPUT " WHICH SPRITE (1- 


RC 
sQ 


Gs 


60 
78 


80 


90 

108 
110 
126 


136 


146 


150 
169 
178 


180 
198 
288 


210 


228 
238 
248 


256 


260 
270 
280 
290 
308 
310 


326 
3308 
348 
358 
360 
378 


388 
398 
490 


416 
420 
430 
449 
450 


460 
470 
480 
490 


500 
518 
520 
530 
540 


8)({2 SPACES}1{3 LEFT}";S 
3 

IF S8<1 OR S8>8 THEN 50 
IF RSPRITE(S%,5)=1 THEN 
{SPACE}PRINT" (DOWN} SORR 
Y, CAN'T ROTATE MULTI-CO 
LOR SPRITE. ":STOP 

INPUT "{DOWN} OK TO ERAS 
E OTHER SPRITES 

{3 SPACES}Y{3 LEFT)"; AS 
3 IF LEFT$(A$,1)<>"Y" T 
HEN STOP 

PRINT " FOR 45 DEGREE SP 
RITES: {DOWN}" 


PRINT "1. REDUCE SIZE 
{SPACE}TO FIT" 

PRINT " 2. KEEP SAME SI 
2E" 

PRINT “ 3. ENLARGE SIZE 
{Down} 


INPUT " YOUR CHOICE (1- 
3){2 SPACES}1{3 LEFT}"; 
scs 


IF SC%<1 OR SC%>3 THEN 
{SPACE}130 

ON SC% GOTO 160,170,180 
YO=50:SC=.5: GOTO 190 
Y@=46 :SC=1/SQR(2) :GOTO 
(SPACE}196 

YO=40 :SC=1 

xo=: 


INPUT "{DOWN} FAS 
T MODE({3 SPACESJN 

(3 LEFT}";A$ 

IF LEFT$(A$,1)="Y" THEN 
FAST 

TRAP 720 

GRAPHIC 1,1:SCALE 8 
SPRSAV St,1:SSHAPE MTS, 
1,1,24,21 

FOR S=2 TO 8:SPRSAV MT$ 
,S:NEXT § 

FOR S=1 TO 8 

MOVSPR S, 215,130 
MOVSPR S,75; S*45-45 
SPRITE S,1,S+1,1,1,1,0 
NEXT S 

SPRSAV 1,S$:GOSUB 
PRSAV S$,2 


500:S 


SPRSAV 1,S$:GOSUB 400:5 
PRSAV S$,3 

SPRSAV 3,S$:GOSUB 500: 
PRSAV S$,4 

SPRSAV 3,S$:GOSUB 480:S 
PRSAV S$,5 

SPRSAV 5,S$:GOSUB 500:S 
PRSAV S$,6 

SPRSAV 5,S$:GOSUB 400: 
PRSAV S$,7 

SPRSAV 7,S$:GOSUB 560:S 
PRSAV S$,8 

SLOW:GOSUB 630 

END 


REM(15 SPACES}ROTATE 99 
DEGREES 

GOSUB 586 

FOR X=18 TO 30 

FOR Y=18 TO 30 

LOCATE X,Y 

IF RDOT(2) THEN DRAW 1, 
40-Y,X4+40 

NEXT Y 

NEXT X 

GOSUB 620:RETURN 
REM(15 SPACES)ROTATE 45 
DEGREES 

GOSUB 578 

FOR X=8 TO 26 

FOR Y=0 10 20 

LOCATE X+16,¥+10 

IF RDOT(2) THEN DRAW 1, 
XO+(X-¥) *SC, YO+ (X+Y) *SC 


558 
560 
578 


580 
598 
608 
618 
620 
638 
648 


658 
660 


676 
680 


698 
768 
718 


720 
730 


748 
758 


768 
778 


NEXT Y,X 
GOSUB 620:RETURN 

REM(2 SPACES)STAMP SPRI 
TE AND CLEAR NEW AREA 
GSHAPE S$,10,10 

BOX 1,9,49,34,71 

GSHAPE MT$,16,50:RETURN 
REM(8 SPACES)LIFT NEW S 
HAPE OFF SCREEN 

SSHAPE S$,16,56,33,70:R 
ETURN 

CHAR 1,1,24,"PRESS ANY 
{SPACE}KEY..." 

DO: GET A$: LOOP UNTIL 
{SPACE Ja$="" 

GETKEY AS 

FOR S=1 TO 8:SPRITE S, 
:NEXT S 

GRAPHIC @,1:GRAPHIC CLR 
PRINT "{3 DOWN}BSAVE “+ 
CHRS (34) +"FILENAME. SPR" 
+CHRS (34)+",BO,P3584 TO 
P4596" 

PRINT CHR$(19) 

RETURN 

REM{20 SPACES)TRAP ROUT 
INE 


GRAPHIC @ : SLOW 
PRINT "(DOWN}?" ERRS$(ER 


IF ER<>30 THEN PRINT “ 
{SPACE}ERROR "; 

PRINT "IN" EL 

HELP 

STOP 


Kaleidoscope 


Revisited 
Article on page 75. 


Program 1: Kaleidoscope 
Revisited—64 Version 


MK 10 S. 


EJ 
DE 
BK 


sc 
XR 


GQ 


BD 


FR 
SA 


AQ 
cK 
XB 
GG 


EF 
PE 


26 
30 
40 


58 
6o 


78 
88 


98 


5 :M=54272 : FORN=MTOM+ 
OK EM +24 
715 :POKEM+5 ,129 :POKEM+6, 
129 

POKEM+4 , 17 

FORI=0T07 :READM(I) :NEXT: 
DATAL,4,25,128,2,16,60,2 
55 
POKE53280 ,0 :POKE53281,0: 
PRINT" {YEL) ";GOSUB550 
REM ML ADDRESSES 
KAL=49664 :A=49696 :CHAR=2 
1:X=253:¥=254 
SEED=KAL+126 : POKESEED , 25, 
S*RND(-TI)+1 
POKESEED+1,256*RND(1):PO 
KEX , 6 :POKEY , 0: POKECHAR, 2 
28 :GOSUB350 

REM INTRO PAGE 


168 PRINT"(CLR}{5 DOWN} 


{15 SPACES ]WELCOME TO 
{2 DOWN} ":PRINT" 

{13 SPACES }uccccccccccc 
Cr® 


110 PRINT" (13 SPACES}-KALEI 


DOSCOPE=" 


128 PRINT"{13 SPACES)J***** 


OKLA DOWN)" 


138 PRINT"[6 SPACES}PRESS A 


NY KEY TO CONTINUE" 


148 GOSUB370:POKEA, 25:GOTO4 


19 


158 REM MAIN LOOP 
168 IFAS$="R"THENGOSUBLO6O 


COMPUTE!'s Gazette August 1986 


103 


298 
388 


310 
320 
338 


346 
350 


366 
370 
380 


398 
408 
410 


4268 


DB 430 


HS 446 


PR 458 


PR 


sQ 478 


JA 486 


JG 498 


FC 508 


510 
Pc 


526 


DF 536 


QA 5468 
DI 558 


SYSKAL: POKEM+1,RND(1)*5 
1T0D: NEXT: GETA 


V=VAL (A$) :IFAS="0"THEND 
=1 

IFV>OTHEND=2.4TV 
IFAS="Q"'THENGOSUB1070 :E 
ND 

FORI=@T07 :IFA$=CHR$ (133 
+1) THENPOKEA, M(I) 
NEXTI: IFA$="B"THENGOSUB 
330 
IFA$="C"THENGOSUB359 
IFA$=CHRS (19) THENPRINTC 
HR$ (147) :GOTO170 


IFA$="H"THENGOSUB1076 :G 
oT0410 
IFA$="_ "THENGOSUB376 


IFA$="P"ANDPEEK (49692 )= 
1 THENGOSUB1086 :WAIT198, 
1 


IPA$="D"ANDPEEK (49692 )= 
1THENFG=1 :GOSUB1080 :WAI 
T198,1 
IFAS="S"THENSI=ABS (SI-1 
5) :POKEM+24, SI 


IFAS="P"THENGOSUB1010 :P 
OKEM+24,SI 
cgoTolés 


REM BLACK AND WHITE 
POKES328@,11:POKE53281, 
11:POKE49692,1:RETURN 
REM COLOR 

POKES 3280 ,@:POKE53281,@ 
:POKE49692, 15 :RETURN 
REM HIT ANY 

GETAS$ : IFAS< 
GETA$ : 1FAS= 
RETURN 

REM HELP MESSAGE 
PRINT"{CLR}{17 SPACES}C 
ONTROLS ( DOWN} 

PRINT" (2 SPACES }SHIFT-P 
/D{3 SPACES}: PRINT/2-W 
IDE (B/W ONLY)" 

PRINT" (DOWN )F1 THROUGH 
{SPACEJF8 : CONTROL COM 
PLEXITY{DOWN}" 

PRINT" @ THROUGH 9 

{2 SPACES]: CONTROL SPE 
ED{DOWN}" 

PRINT"(5 SPACES JB/C 

{6 SPACES]: BLACK AND W 
HITE/COLOR{ DOWN)" 
PRINT" (4 SPACES }SPACE 
{5 SPACES]: FREEZE DISP 
LAY" 

PRINT" {DOWN} {5 SPACES JC 
LR{6 SPACES}: CLEAR SCR 
EEN":PRINT" { DOWN} 

(6 SPACES]H(7 SPACES}: 
{SPACE} HELP 1" 
PRINT"{DOWN){6 SPACES]S 
{7 SPACES]: SILENCE TOG 
GLE" 

PRINT" {DOWN} {6 SPACES]P 
{7 SPACES]: PROGRAM CHA 
RACTER" 

PRINT" {DOWN} {6 SPACESJR 
{7 SPACES]: RANDOMIZED 
{SPACE } CHARACTERS ( DOWN } 


PRINT" {6 SPACES]Q 

{7 SPACES}: QUIT" 
PRINT" {DOWN} HIT ANY KE 
Y TO START THE KALEIDOS 
COPE {HOME} ":GOSUB376:PR 
INTCHRS$ (147) 


GOTO176 

REM LOAD NL 

PRINTCHRS (147)"...LOADI 
NG ML" 


104 COMPUTE!'s Gazette August 1986 


PH 


560 S=0 :C=49664 :FORI=CTOC+2 
48:READX:POKEI,X:S=S+X: 
NEXT 

IFS <>33124THENP RINT "ERR 
OR IN DATA STATEMENTS": 
END 

RETURN, 

DATA 173,32,194,133,165 
132 
DATA33,194,32,90,194,32 
DATA33,194,32,96,194,19 


570 


580 
598 


600 
610 


8 
626 DATA165, 208, 240,238,246 


7193 
DATA173,240,193,41,15,1 
33 
DATA252,96,25,32,43,194 
DATA32,65,194,32,43,194 
DATA96 ,32,172,194,32,74 
DATA194,32,172,194,32,8 


630 


640 
650 
660 
678 


2 
689 DATA194,32,172,194,32,7 
4 


698 DATA194,32,172,194,96,1 
65 
700 DATA253,164,254,133,254 


118 $ATA253,96,169,24, 56,22 
DATA253,133,253,96,169, 
BRTASG ,229,254,133,254, 
BRTA32,109,194,144,7,32 
DATA109,194,144,28,176, 


728 
730 


748 
758 


35 
DATA32,109,194,144,43,1 
76 
DATA5SG,14,127,194,46,12 
6 


768 
778 


786 DATA194,144,8,173,127,1 
94 

798 DATA73,45,141,127,194,9 
6 

800 


810 


DATA109,12,198,253,16,4 
DATA169,24,133,253,96,2 
36 

DATA253,165,253,261,25, 
208 

DATA4 ,169,8,133,253,96 
DATA198,254,16,4,169,24 
DATA133,254,96, 230,254, 
165 

DATA254,201,25,208,4,16 


820 


838 
848 
858 


860 


9 
DATAS ,133,254,96,32,193 
DATA194,165,251,166,0,1 


870 

880 
45 

890 DATA163,169,212,24,101, 

164 

DATA133,164,165,252,145 

7163 

DATA9G ,169,4,133,164,16 

5 


900 
918 


920 DATA253,24,165,7,133,16 
3 


930 DATA166,254,166,08,32,23 
a 


948 DATA194,32,236,194,32,2 
958 DRUALSatgaas7hioa, 32,2 
DaTA194,32,230, 194,322 
DATAL94,96,138,10,170,2 
BatAda 168,96, 26,128, 20 


960 
970 
980 


996 DATA163,133,163,152,161 
+164 
1060 DATA133,164,96 


1010 GOSUB1676:PRINT" {HOME } 


{5 DowN} (6 SPACES}: 

{7 LEFT}";:INPUT"#"; NU 
$:IFNUS="R{2 SPACES}"T 
HEN1649 

NU=VAL (NUS ) : I FNU<@ORNU 
>255THEN1O16 
POKECHAR , NU 

PRINT" {HOME} {5 DOWN} 
{7 SPACES}":PRINT" 

{14 spacEs}" 

RETURN 

POKECHAR, PEEK (162) :RET 
URN 

POKEM+24,0:RETURN 
SS=55303 :CC=40 :RR=24 :W 
W=25 :GOSUB1078 

OPEN4, 4:FORG=@TORR:PRI 
NT#4,CHR$(15) 5 

IF FGTHENFORF=1T02 :PRIN 
#4 ,CHRS(14); 
FORN=SS+G*CCTOSS+G*CC+ 
WW:Q=PEEK(N) 

IF(QAND15 )=1THENPRINT# 
45K"; 

If (QAND15) <> 1 THENP RINT 
#4," "5 

NEXTN: PRINT#4 ,CHRS(8) ¢ 
IFFGTHENNEXTF 

NEXTG : FORN=1T04 : PRINT# 
4:NEXT:CLOSE4 :FG=6:RET 
URN 


EX 1626 


1030 
1049 


1858 
1668 


KX 1078 
1989 


1696 
1168 
1118 
1128 


HA 1130 


HD 1148 


1158 


Program 2: Kaleidoscope 
Revisited—Plus/4 and 16 Version 


HR 16 POKES6,6@:CLR:FORI=@TO7: 
READM(I) :NEXT:DATA1,2,4, 
18,25,68,128,255 

26 FORI=1T08 :KEYI ,CHR$ (132+ 
I EXT : COLOR@ , 1 :COLOR4, 
1:VL=8:PRINT" { YEL}":GOSU 
B520 

30 REM * ML ROUTINE ADDRESS 

* 


40 KAL=15617:A=15651 :CH=3:X 
=5 1¥=6 

50 SEED=KAL+128:POKESEED , 25 
5*RND(-TI)+1:REM * SEED 
{SPACE}RANDOM # GEN * 

66 POKESEED+1,256*RND(1) :PO 
KEX , 8 :POKEY ,@ s POKECH , 228 
:GOSUB320 

70 REM * INTRO PAGE * 

80 PRINT"(CLR){5 DOWN} 
{15 SPACES}WELCOME TO 
{2 DOWN} ":PRINT" 
{13 SPACES }UccCCccccccce 


FB 90 PRINT"{13 SPACES}~KALEID 
OSCOPE-" 

188 PRINT™{13 SPACES}J***** 
seae***K(4 DOWN] "PRINT 

@ SPACES}PRESS ANY KE 

Y TO CONTINUE" 

118 GOSUB346 : POKEA, 25:GOTO3 
80 

120 REM * MAIN LOOP * 

130 IFA$="R"THENGOSUB1O30 

149 SYSKAL:VOLVL: SOUND 1,1N 
T(RND(1)*1024),10:FORI= 
1TOD:NEXT: GETAS : IFA: 
THEN140 

15@ V=VAL(AS$) :IFAS="0"THEND 
=1 

160 IFV>@THEND=2.4TV 

178 IFA$="Q"THENEND 

188 FORI=0T07 :IFAS$=CHR$ (133 
+1) THENPOKEA, M(T) 

196 NEXTI:IFA$="B"THENGOSUB 


PE 


BA 


KG 
RR 
HE 


xG 
AQ 
BS 
sD 


HR 


300 
GK 260 IFA$="C"THENGOSUB320 


SX 


cR 


xP 


QD 


DD 


EG 


ED 


KK 


PG 


210 
220 


230 
248 


258 


260 


276 
288 
298 
308 


318 
320 


338 
340 
358 
368 
378 
388 


390 


400 


418 


426 


430 


440 


450 


460 


4708 


489 


498 


500 
510 


520 


530 


540 


558 
568 


570 
580 
590 


IFA$=CHR§ (19) THENPRINTC 
HRS (147) :GOTO140 
IFAS="H"THEN389 

IFAS="_ "THENGOSUB340 
IFAS="P"ANDPEEK(15645)= 
112THENGOSUB1049 :WALT23 
91 
IFA$="D"ANDPEEK (15645 )= 
112THENFG=1 :GOSUB1046:W 
AIT239,1 

IPAS$="S "THENVL=~(VL=@ )* 
8:VOLVL 
IFAS$="P"THENGOSUB983 
GOTO136 

REM * BLACK AND WHITE * 
COLOR 6,2,3:COLOR 4,2,3 
#POKE15645,112:POKEL564 
7,113 :RETURN 

REM * COLOR * 

COLOR @,1:COLOR 4,1:POK 
£15645 ,@:POKE15647,127: 
RETURN 

REM * HIT ANY * 

GETAS : IFAS <>""THEN348 
GETAS :IFAS=""THEN350 
RETURN 

REM * HELP MESSAGE * 
PRINT" (CLR}{14 SPACES}C 
ONTROLS[DOWN}" 

PRINT"({2 SPACES)SHIFT-P 
/D{3 SPACES}: PRINT/2-W 
IDE (B/W ONLY)" 

PRINT" {DOWN}F1 THROUGH 
(SPACE}F8 : CONTROL COM 
PLEXITY{DOWN}" 

PRINT" @ THROUGH 

{2 SPACES}9 : CONTROL S 
PEED{ DOWN)" 

PRINT" (5 SPACES}B/C 

{6 SPACES}: BLACK AND W 
HITE/COLOR{ DOWN} " 
PRINT" {4 SPACES}SPACE 
{5 SPACES}: FREEZE DISP 
Lay" 

PRINT" {DOWN} [5 SPACES}C 
LR(6 SPACES}: CLEAR SCR 
EEN" :PRINT" { DOWN} 

{6 SPACES]H({7 SPACES}: 
(SPACE }HELP 1" 

PRINT" {DOWN} {6 SPACES}S 
{7 SPACES}: SILENCE TOG 
GLE" 

PRINT" {DOWN} {6 SPACES}P 
{7 SPACES}: PROGRAM CHA 
RACTER" 

PRINT" (DOWN} (6 SPACES}R 
{7 SPACES}: RANDOMIZED 
{ SPACE }CHARACTERS { DOWN } 


PRINT"(6 SPACES]Q 

{7 SPACES}: QUIT" 
PRINT" (DOWN) HIT ANY KE 
¥ TO START THE KALEIDOS 
COPE [HOME }":GOSUB340:PR 
INTCHRS (147) 

GoTO149 

REM * LOAD ML ROUTINES 
{SPACE} * 
PRINTCHRS$(147)"...LOADI 
NG ML" 


5@:READX :POKEI, 
NEXT 
IFS<>22993THENPRINT "ERR 
OR IN DATA STATEMENTS": 
END 

RETURN 

DATA 173,35,61,133,162, 
32 

DATA 36,61,32,93,61,32 
DATA 36,61,32,93,61,198 
DATA 162,208,246,238,0, 


xs 


600 
618 
628 
638 
640 
650 
660 
670 
680 
690 
760 


173,8,61,9,9,41 

127,133,4,96,25,32 
46 ,61,32,68,61,32 
46 ,61,96,32,175,61 
32,77,61,32,175,61 
32,85,61,32,175,61 
32,77,61,32,175,61 
96,165,5,164,6,133 
6,132,5,96,169,24 
56,229,5,133,5,96 
169,24,56,229,6,13 


718 
7268 
738 


6,96,32,112,61,144 
7,32,112,61,144,28 
176,35,32,112,61,1 


748 43,176,50,14,130,6 


758 46,129,61,144,8,17 


760 130,61,73,45,141,1 
30 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
C7) 
DATA 
DATA 
DATA 
8 
DATA 
24 
DATA 
5,4 
DATA 
133 
DATA 
DATA 
6 
DATA 
zi 
DATA 
1 
DATA 
1 
DATA 
8 
DATA 
24 
DATA 
6,152 

DATA 161,161,133,161,96 
Pare tno TS DOWN } 

(6 SPACES}:{7 LEFT)"; :I 
NPUT" #"; NUS :IFNUS="R 

(2 SPACES }"THEN1619 
NU=VAL (NUS ) :I FNU<@ORNU> 
255THEN98O 

1000 POKECH ,NU 

1610 PRINT" {HOME} (5 DOWN) 
(7 SPACES}":PRINT" 

(14 SPACES}" 

RETURN 

POKECH , PEEK(165) :RETUR 
N 
SS=2055 :CC=40 :RR=24 :WW 
=25 

OPEN4 ,4:FORG=@TORR:PRI 
NT#4,CHR$(15);:REM 152 
5, 801, 803 PRINTERS 
IF FGTHENFORF=1T02 :PRIN 
T#4 ,CHRS(14); 
FORN=SS+G*CCTOSS+G*CC+ 
WW:Q=PEEK(N) 

IF (QAND15 )=1THENPRINT# 
4, "x"; 

IF(QAND15) <>1THENPRINT 
#4," 


778 
780 
798 
800 
i) 
820 


61,96,11,194,198,5 
16,4,169,24,133,5 
96,238,5,165,5,201 
25,208,4,169,0,133 
5,96,198,6,16,4 
169,24,133,6,96,23 


830 
848 
850 


6,165,6,201,25,208 
4,169,6,133,6,96 
32,196,61,165,3,16 


860 8,145,168,169,252, 


870 101,161,133,161,16 
88o 145,166,96,169,12, 


890 
908 


161,165,5,24,105,7 
133,168,166,6,160, 
910 32,233,61,32,233,6 
920 32,233,61,32,240,6 
938 32,233,61,32,233,6 
948 32,248,61,96,138,1 
950 176,152,42,168,96, 
960 138,101,166,133,16 


970 
986 


990 


1028 
1638 


10498 
1056 


1068 
10768 
1086 
1098 


PH 1100 NEXTN:PRINT#4 ,CHR$(8): 
IF FGTHENNEXTF 

QE 1116 NEXTG:FORN=1T04 :PRINTS 
4:NEXT:CLOSE4 :FG=@ :RET 
URN 


Program 3: Kaleidoscope 
Revisited—VIC Version 


RS 16 POKES6,28:CLR:FORI=0T07: 
READM(I) :NEXT:DATA1,4,25 
1128,2,16,66,255 

POKE36879,8:PRINT"{YEL}" 
5 :S1=36875 :GOSUB466 
169 :A=7261 :CH=251:X 


Y=254 

SS 40 SE=KAL+126:POKESE,255*RN 
D(-TI)+1 

XH 50 POKESE+1,256*RND(1):POKE 
X,@:POKEY, 0: POKECH , 228 :G 
OSUB296 

GA 60 PRINT" {CLR} {5 DOWN} 
{6 SPACES}WELCOME TO 
{2 DOWN}":PRINT" 
{4 sPACEs}uccccecccccccr 

FQ 70 PRINT"({4 SPACES}-KALEIDO 
SCOPE-" 

JK 80 PRINT™(4 SPACES} J******* 
x****K{4 DOWN}":PRINT "HT 
TA KEY TO CONTINUE" 

DS 90 GOSUB306:POKEA, 25:GOTO33 
8 

EQ 100 IFA$="R"THENGOSUB920 


RP 110 POKES1+3,VL:SYSKAL: POKE 
S1,128+RND(1)*128 :FOR 
1TOD:NEXT:GETAS : IFAS=""" 
THEN116 

V=VAL (A$) IFA 
=1 

IFV> OTHEND=2.4TV 
IFA$="Q"THENGOSUB936: EN 
D 

FORI=6TO7 : 1FA$=CHRS (133 
+I) THENPOKEA, M(1) 

NEXTI: I[FA$="B"THENGOSUB 


128 O" THEND 


130 
140 


156 


160 


176 
189 


"THENGOSUB299 
R$ (19) THENPRINT" 
T0116 

196 THENGOSUB930 :GO 
208 
210 


IFA$="_ "THENGOSUB306 

IFA$="P"ANDPEEK(7197)=1 
THENGOSUB940 :WAIT198,1 
IFA$="D"ANDPEEK(7197)=1 
:GOSUB940 :WAIT] 


220 


238 'THENVL=ABS ( VL-1 
5) :POKES1+3,VL 
IPA$="P"THENGOSUB880 
coTo1a0 

REM B&W 


248 
258 
260 


278 


POKE36879,110:POKE7197, 
1:RETURN 

REM COLOR 
POKE36879,8:POKE7197,7: 
RETURN 
GETA$ : IFAS <> 


288 
298 


388 
310 
320 
330 


“THEN300 


RETURN 
PRINT" 
NTROLS 
PRINT" (RVS)SHIFT-P/D 
{OFF} :PRINT/2-WIDE"; 
PRINT" {DOWN} (RVS)F1-F8 
{OFF}:ALTER COMPLEXITY" 
PRINT" {RVS}B-9{ OFF} 

{2 SPACES}:ALTER SPEED" 
PRINT" (DOWN) {RVSJB{OFF} 
/({Rvs)c(OFF}{2 SPACES}: 
B&W OR COLOR" 


{cLR} (6 SPACES}co 


340 
350 


368 
370 
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105 


388 


FP 396 


co 400 


68a 


708 


738 
748 


768 
778 
780 
798 


808 


PRINT" ( DOWN} { RVS } SPACE 
{OFF}:FREEZE DISPLAY" 
PRINT" {DOWN} {RVS}CLR 
{OFF}(2 SPACES}:CLEAR S 
CREEN":PRINT" { DOWN) 
{RvS}H(OFF}{4 SPACES}:H 
ELP! { DOWN)" 

PRINT" (RVSJS{OFF} 

{4 SPACES}:SILENCE TOGG 
LE( DOWN)" 

PRINT" {RVS}P{OFF} 
RAM A CHARACTER" 
PRINT"(RVS}R(OFF} 
OM CHARACTERS [ DOWN) 
PRINT"({RVSJQ(OPF} :QUIT 


:PROG 


RAND 


PRINT"(2 SPACES}HIT A K 
EY TO START(HOME} 
UB300;PRINT"{CLR} 
GoTOl1O 

PRINT" (CLR}...LOADING M 
L":C=7169:FORI=CTOC+231 


IFS <> 2591 0THENP RINT "ERR 
OR IN DATA.":END 
RETURN 


DATA 173,33,28,133,165, 


34,28,32,91,28,32 
34,28,32,91,28,198 
165,208,240,238,0, 


173,0,28,41,7,133 
252,96,128,32,44,2 


32,66, 28,32,44,28 
96 ,32,173,28,32,75 
28,32,173,28,32,83 
28 ,32,173,28,32,75 
28,32,173,28,96,16 
253,164,254,133,25 
253,96,169,26,56,2 
253,133,253,96,169 
56,229,254,133,254 


32,116,28,144,7,32 
118,28,144,28,176, 


32,110,28,144,43,1 
50,14,128,28,46,12 
28,144,8,173,128,2 
73,45,141,128,28,9 
59,172,198,253,16, 
169,20,133,253,96, 
253,165,253,261,21 


4,169,8,133,253,96 
198,254,16,4,169,2 


133,254,96,230,254 
254,201,21,208,4,1 
0,133,254,96,32,19 
28,165,251,168,6,1 
163,169,128,24,101 


133,164,165,252,14 
5,163 
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816 96,169,36,133,164, 


826 253,24,185,1,133,1 


836 166,254,166,6,169, 


848 133,2,32,221,28,19 


850 2,208,249,96,24,13 


860 DATA 161,163,133,163,15 
2,161 

DATA 164,133,164,96 
GOSUB936 : PRINT" {HOME } 
(4 pown}{6 SPACES]: 

{7 LEFT)"; :INPUT"#";NU$ 
:IFNU$="R{2 SPACES)"THE 
N910 

NU=VAL (NUS ) : IFNU<®ORNU> 
255 THEN88O 

POKECH , NU 

PRINT“ {HOME} (4 DOWN} 

{7 SPACES}":PRINT" 

{14 SPACES}":RETURN 
POKECH , PEEK( 162) :RETURN 
POKES1+3 , 0 :RETURN 
SS=38401 :CC=22:RR=20 :WW 
=20 :GOSUB930 

OPEN4 , 4 :FORG=OTORR: PRIN 
T#4,CHRS$(15);:REM 1525, 
861, 863 PRINTERS 
IPFGTHENFORF=1T02:PRINT 
#4,CHRS(14); 
FORN=SS+G*CCTOSS+G*CC+W 
W:Q=PEEK(N) 

IF (QAND15 )=1THENPRINT#4 


870 
880 


898 
908 
916 


928 
930 
949 


958 


960 
976 


980 


999 IF (QAND15)<>1THENPRINT# 


1066 NEXTN:PRINT#4 ,CHR$(8) : 
IFFGTHENNEXTF 
1610 NEXTG :FORN=1T04:PRINT# 


4:NEXT:CLOSE4 :FG=@:RET 
URN 


Expandable 
Graphics Dump 


Article on page 59. 


BEFORE TYPING ... 
Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


Program 1: Expandable Graphics 
Dump—64 Version 


MK 168 PRINT" (CLR}{3 DOWN} 
{WHT} "SPC(14)"PLEASE WA 
IT":GOSUB330 

PRINT" (CLR)SPECIFY GRAP 
HIC SOURCE" 

PRINT"{2 DOWN]PRESS (1) 
FOR HIRES OTHER THAN 
(20 SPACES}PRINT SHOP" 
PRINT" {DOWN} OR 

{3 SPACES}(2) FOR PRINT 
SHOP{3 DOWN}" 

POKE 198,0:WAIT 198,1:G 
ET GS$:GS=VAL(GS$) 

IF GS<>1 AND GS<>2 THEN 
148 


EE 110 


JA 120 


KM 138 


QQ 149 


AD 158 


PS 


HE 


HA 


AQ 


BQ 


KD 


PE 


Ds 


FX 


PE 


EX 


cM 


KE 


168 
178 


1s0 
198 
200 
210 
220 


2308 
240 


250 


260 
278 


280 
298 
308 
310 
320 
330 


348 
358 


360 


378 


388 


398 


408 


410 


420 


430 


440 


450 


460 


470 


480 


490 


POKE 12272,GS 
PRINT“PRESS (1) FOR NOR 
MAL SIZE PRINTOUT" 
PRINT" {DOWN} OR 

(3 SPACES}(2) FOR ENLAR 
GED PRINTOUT({3 DOWN)" 
Gs=9 

POKE 198,0:WAIT198,1:GE 
T GS$:GS=VAL(GS$) 

IF GS<>1 AND GS<>2 THEN 
208 

If GS=2 THEN GS=1:GoTo2 
49 

Gs=9 

POKE 12274,GS:IF GS THE 
N296 

PRINT "ENTER SPACE OVER 
{SPACE}VALUE (0-40)" 
INPUT GS 

IF GS<@ OR GS>40 THEN25 


6 

POKE 12273,GS 

POKE 785,0 

POKE 786,48 

X1=USR(®) 

corolla 

C=@:FOR A=12288 TO 1306 
4:READ B:POKEA, B:C=C+B: 
NEXT:IF C=83337 THEN RE 
TURN 

PRINT “{CLRJERROR IN DA 
TA" :STOP 

DATA 173,242,47,201,1,2 
40,23,173,241,47,133,10 
124,185 ,46,141,126,58,3 
2 

DATA 66,48,32,93,48,32, 
187,48, 76 ,107,49,32,66, 
48, 32,93, 48,32, 107 

DATA 48,169,0,141,241,4 
7,133,18,169,86,141,126 
58,76 ,121,58,162,8,238 
DATA 3,208,2,230,4,202, 
208,247 ,96,173,248,47,2 
1,1, 208,5,169,96,76 
DATA 86,48,169,64,141,1 
17,50,133,4,169,0,141,1 
16 ,58,133,3,96, 24,165 
DATA 3,105,64,133,13,16 
5,4,105,31,133,14,96,16 
9,8,32,189,255,169,4 
DATA 162,4,166,255,32,1 
86, 255,32,192,255,32,28 
4,255,162,4,32, 201,255, 
169 

DATA 13,32,2106,255,169, 
0,32,189,255,169,6,162, 
4,168,6,32,186, 255,32 
DATA 192,255,32,204,255 
1162,6,32,201,255,169,2 
8,32,216,255,169,6,32,1 
89 

DATA 255,169,5,162,4,16 
8,5,32,186,255,32,192,2 
55, 32,204,255, 162,4,32 
DATA 261,255,169,141,32 
1216,255,96,32,204,255, 
162,5,32,201,255,162,8, 
189 

DATA 105,50,32,218,255, 
232,224,8,208,245,169,1 
3, 32,218, 255,32, 204,255 
162 

DATA 4,32,201,255,166,1 
©,240,8,169,29,32,210,2 
55,202, 208,248,169, 254, 
32 

DATA 210,255,169,141,32 
1216,255,96,230,10,165, 
1, 205,120,508, 208,13,17 
3,241 

DATA 47,133,10,206,96,5 


xB 


FH 


GR 


EM 


MC 


CF 


HE 


RD 


HE 


BK 


SA 


GD 


sD 


xs 


xs 


FA 


SG 


BE 


Gc 


XX 


BP 


500 


516 


520 


536 


54) 


558 


568 


5908 


6068 


610 


628 


630 


648 


650 


660 


670 


680 


698 


708 


710 


728 


738 


748 


®,169,13,32,210,255,96, 
169,8,141,105,56,141,19 
6 


DATA 58,141,107,50,141, 
168,50,141,169,56,141,1 
10,58,141,111,50,141,11 
2,58 

1166,0,185,97 
150,61, 50,248,9,185, 
78,58,29,105,50,157 
DATA 165,50,260,192,8,2 
48,3,76,52,49,232,224,8 
1248,3,76,58,49,96 
DATA 165,3,197,13,208,1 
4,165,4,197,14,268,8,16 
9,15,141,113,56,32,231 
DATA 255,96,169,0,141,1 
13,56,169,6,141,95,50,1 
60,6,177,3,240,3,238 
DATA 95,50,153,97,50,2¢ 
9,192,8,208,241,173,95, 
58,208,17,32,255,48,32 
DATA 54,48,32,86,49,173 
+113,58,208,12,76,112,4 
9,32,22,49,32,198,48 
DATA 76,139,49,96,160,2 
+162,0,173,94,508,208,2, 
160,4,177,3,157,97 
DATA 58,200,232,224,4,2 
49,3,76,177,49,173,115, 
58,248,3,76,217,49,160 
DATA 3,185,97,50,74,74, 
74,74,153,97,58,136,48, 
3,76,201,49,160,3 

DATA 185,97,50,45,114,5 
8,153,97,50,136,48,3,76 
+219,49,24,173,97,58 
DATA 109,98,50,109,99,5 
G,199,168,50,240,6,169, 
8,141,95,50,96,169,1 
DATA 141,95,58,96,172,1 
68,50,185,78,50,141,104 
150,141,103,50,172,99,5 
® 

DATA 185,78,58,141,102, 
58,141,101,56,172,98,58 
7185,78,58,141,106,50,1 
41 


DATA 99,58,172,97,50,18 
5,78,5,141,98,56,141,9 
7,58,96,173,118,56,133 
DATA 3,173,119,58,133,4 
1169,8,141,94,56,96,128 
,64,32,16,8,4,2 

DATA 1,8,3,12,15,48,51, 
68,63,192,195,204,207,2 
40 ,243,252,255,192,192 
DATA 192,192,192,50,15, 
1,8,96,0,126,88,169,0,1 
41,99,58,169,1,15 

DATA 82,50,141,80,50,16 
5,169,6,141,113,58,169, 
1,141,96,58,141,94,58 
DATA 165,3,141,118,50,1 
65,4,141,119,58,32,177, 
56,173,94,50,248,6,32 
DATA 54,58,76,134,58,17 
3,113,58,201,50,240,8,1 
69,1,141,94,58,76,134 
DATA 56,32,231,255,96,1 
69,6,141,115,50,32,166, 
49,173,95,50,240,3,76 
DATA 262,508,32,5,50,32, 
22,49,32,198,48,230,10, 
169,1,141,115,58,32 
DATA 166,49,173,95,50,2 
48,3,76,229,50,32,5,58, 
32,22,49,32,198,48 
DATA 32,54,48,32,255,48 
+173,96,58,208,7,238,96 
+58,238,113,50,96,169 


BH 758 DATA 9,141,115,58,76,18 
2,58,68,65,255,255,255, 
255,255,255,255,255 


Program 2: Expandable Graphics 
Dump—128 And Plus/4 Version 
KJ 10 GRAPHIC1:GRAPHICO:C=6:PR 


INT"(CLR}{4 DOWN} "SPC(14 
) "PLEASE WAIT" :GOSUB180 


GF 20 POKE4848,1 

MH 38 PRINT"(CLR}{3 DOWN)SPECI 
FY 1:1 OR BLOW-UP" 

MR 40 PRINT" (RETURN )=1:1 
(5 SPACES}2.)BLOW-UP 

QD 59 GS=8 

XS 68 INPUT GS 

PK 70 IF GS=2THENGOTO90 

BS 80 GS=0:GOTO165 

SG 98 GS=1 

EK 168 POKE 4850,GS:IFGSTHENI6 
6 

XD 116 PRINT"ENTER SPACE OVER 
{SPACE}VALUE (0-48)" 

HQ 12@ INPUT GS 

EC 130 IF GS<@THEN GOTO110 

BB 140 IF GS>40THEN GOTO116 

DG 156 POKE4849,GS 

GE 168 SYS DEC("1306") 

Ms 178 GoTo20 

BC 186 FORA=4864T05631:READB:C 
=Ct+B: POKEA, BiNEXT:IFC=7 
7627 THENRETURN 

XR 198 PRINT"ERROR IN DATA":ST 
op 

RX 208 DATA 173,242,18,201,1,2 
4G,23,173,241,18,133,16 
124,185, 48,141,126,21,3 
2 

AA 210 DATA 66,19,32,93,19,32, 
187,19,76,107,20,32,66, 
19,32,93,19,32,187 

ME 226 DATA 19,169,0,141,241,1 
8,133,10,169,80,141,128 
721,76,121,21,162,8,238 

JI 236 DATA 3,208,2,230,4,262, 
208,247,96,173,248,18,2 
@1,1,288,5,169,32,76 

AP 249 DATA 88,19,169,32,141,1 
17,21,133,4,169,8,141,1 
16,21,133,3,96,24,165 

EP 250 DATA 3,165,64,133,13,16 
5,4,185,31,133,14,96,16 
9,0,32,189,255,169,4 

SJ 260 DATA 162,4,160,255,32,1 
86, 255,32,192,255,32,26 
4,255,162,4,32,201,255, 
169 

BX 278 DATA 13,32,210,255,169, 
6,32,189,255,169,6,162, 
4,160,6,32,186,255,32 

CP 280 DATA 192,255,32,204,255 
1162,6,32,201,255,169,2 
6, 32,210,255, 169,0,32,1 
89 

CK 298 DATA 255,169,5,162,4,16 
8,5,32,186,255,32,192,2 
55,32,204,255,162,4,32 

CF 308 DATA 201,255,169,141,32 
1210, 255,96,32,204,255, 
162,5,32,201,255,162,0, 
189 

CK 310 DATA 105,21,32,216,255, 
232,224,8,208,245,169,1 
3, 32,210, 255,32, 204,255 
162 

FF 326 DATA 4,32,261,255,166,1 


8,240,8,169,29,32,210,2 
55,202, 208,248,169,254, 
32 


KE 


SM 


HC 


PE 


FQ 


QR 


PA 


BB 


SF 


BE 


PE 


ss 


ac 


FQ 


DR 


cM 


BH 


EH 


RP 


sq 


QR 


Bs 


330 


340 


350 


360 


376 


386 


398 


408 


410 


420 


430 


440 


458 


4768 


480 


490 


500 


518 


520 


530 


546 


558 


560 


578 


580 
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DATA 216,255,169,141,32 
7218,255,96,230,10,165, 
16,205,120,21,208,13,17 
3,241 

DATA 18,133,16,206,96,2 
1,169,13,32,210,255,96, 
169,6,141,105,21,141,10 
6 


DATA 21,141,167,21,141, 
108,21,141,169,21,141,1 
10,21,141,111,21,141,11 
2,21 

DATA 162,6,166,0,185,97 
+21,61,70,21,240,9,185, 
76,21,29,105,21,157 
DATA 105,21,266,192,8,2 
40,3,76,52,20,232,224,8 
+240,3,76,50,206,96 
DATA 165,3,197,13,208,1 
4,165,4,197,14,208,8,16 
9,15,141,113,21,32,231 
DATA 255,96,169,0,141,1 
13,21,169,0,141,95,21,1 
60,6,177,3,240,3,238 
DATA 95,21,153,97,21,28 
@,192,8,208,241,173,95, 
21,208,17,32,255,19,32 
DATA 54,19,32,86,28,173 
7113,21,268,12,76,112,2 
@,32,22,28,32,198,19 
DATA 76,139,20,96,168,0 
+162,0,173,94,21,288,2, 
166,4,177,3,157,97 
DATA 21,200,232,224,4,2 
40,3,76,177,20,173,115, 
21,248,3,76,217,26,166 
DATA 3,185,97,21,74,74, 
74,74,153,97,21,136,48, 
3,76,201,20,160,3 

DATA 185,97,21,45,114,2 
1,153,97,21,136,48,3,76 
1219,28,24,173,97,21 
DATA 109,98,21,109,99,2 
1,169,106,21,248,6,169, 
@,141,95,21,96,169,1 
DATA 141,95,21,96,172,1 
06,21,185,78,21,141,104 
+21,141,163,21,172,99,2 
1 


DATA 185,78,21,141,162, 
21,141,161,21,172,98,21 
,185,78,21,141,160,21,1 
41 

DATA 99,21,172,97,21,18 
5,78,21,141,98,21,141,9 
7,21,96,173,118,21,133 
DATA 3,173,119,21,133,4 
1169,0,141,94,21,96,128 
164,32,16,8,4,2 

DATA 1,6,3,12,15,48,51, 
60,63,192,195,204,267,2 
40,243, 252,255,192,192 
DATA 192,192,192,50,15, 
1,0,96,0,126,80,169,0,1 
41,99,50,169,1,15 

DATA 82,56,141,88,21,16 
5,169,8,141,113,21,169, 
1,141,96,21,141,94,21 
DATA 165,3,141,118,21,1 
65,4,141,119,21,32,177, 
21,173,94,21,240,6,32 
DATA 54,21,76,134,21,17 
3,113,21,201,50,240,8,1 
69,1,141,94,21,76,134 
DATA 21,32,231,255,96,1 
69,6,141,115,21,32,166, 
26,173,95,21,248,3,76 
DATA 262,21,32,5,21,32, 
22,20,32,198,19,236,18, 
169,1,141,115,21,32 
DATA 166,26,173,95,21,2 
40,3,76,229,21,32,5,21, 
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ac 600 


32,22,28,32,198,19 


PP 598 DATA 32,54,19,32,255,19 


,173,96,21,208,7,238,96 
121,238,113,21,96,169 
DATA 0,141,115,21,76,18 
2,21,68 


Horizons: Raster 
Interrupt 


Article on page 81. 
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Save Your Copies of COMPUTE! 


Protect your back issues of COMPUTE! 
in durable binders or library cases. 
Each binder or case is custom-made 
in flag-blue binding with embossed 
white lettering. Each holds a year of 
COMPUTE!. Order several and keep 
your issues of COMPUTE! neatly or- 
ganized for quick reference. 


EH 18 FORJ=49152T049230:READA: (These binders make great 
CK=CK+A: POKEJ,A:NEXT gifts, tool) 
DM 20 IF CK<>8670THENPRINT"PLE heat: 
ASE CHECK DATA STATEMENT 
S FOR AN ERROR." Cases: Binders (Please add $2.50 per unit for orders 
GC 38 SYS49152:LIST $6.95 each; $8.50 each; outside the U.S.) 
DG 16 DATA12G,169,28,141,20,3 3 for $20.00; 3 for $24.75; 
169,192,141,21,3,169 6 for $36.00 6 for $48.00 Send in your prepaid order with the 
HF 110 DATA1,141, 26,208, 169,27 attached coupon 
1141,17,208,169,127,141 
BQ 120 DATA13,220,88,96,169,1, PAGS Re ee ee ee 
141,25, 208,173,18,208 Mail to: Jesse Jones Industries. P.O. Box 5120, 
AX 130 DATAL70,74,74,74,74,141 Dept. Code COTE, Philadelphia, PA 19141 
32, 208,74,141,33, 208 ' 
CP 140 DATA201,7,240,9,138,24, Please send me COMPUTE! Ocases O binders. 
185,32,141,18, 208, 208 Enclosed Is my check or money order for $ . (U.S. funds 
SP 15@ DATA5,169,16,141,18, 268 only.) 
173,13, 220,41,1, 240 
KD 160 DATA3,76,49,234, 76,188, Rene, 


Address 


City 
State 


Satistaction guaranteed or money refunded. 
Preaie allow 4-6 weeks for delivery. 


To Our Readers: 


COMPUTE! Publications is a part of the ABC Consumer Magazines group of ABC 
Publishing, Inc. and recently we consolidated many of our operations and moved 
our Customer Service Department to the New York ABC headquarters. If you 
have any questions regarding back issues, disk orders, book orders, or how to 
place an order, call toll free 1-800-346-6767. New York residents should call 
212-887-8525. 


If you want to order a subscription to COMPUTE!, COMPUTE!’s GAZETTE, COMPUTE!'s 
GAZETTE DISK, or the COMPUTE! DISK, call 1-800-247-5470 or in lowa call 
1-800-532-1272, 


Our Editorial Offices remain in Greensboro, North Carolina, If you wish to submit an 
article for publication, write us at COMPUTE! Publications, Inc., P.O. Box 5406, 
Greensboro, NC 27403. 


We thank you for your interest and continued support of COMPUTE! Publications. 


COMPUTE! Publications Inc. 


Port of ABC Consumer Magazines, inc. 
One of the ABC Pubishing Companies 
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Vee 


January 1984: SpeedScript; Graph 
Plotter; 64 BASIC Aid; Getting 
Started with a Disk Drive, Part 3 


February 1984: Speed Reader; 
Typing Derby; How to Use Arrays; 
Auto Line Numbering; Getting 
Started with a Disk Drive, Part 4 


March 1984: Poker; Guess 
Americal; Sea Route to India; 
Making More Readable Listings; 
Getting Started with a Disk Drive, 
Part 5. 


June 1984: 3-D Tic-Tac-Toe; Castle 
Dungeon; Spelling Critter; Shape 
Match; Word Scramble; File Copier 


July 1984: Space Patrol; Robot 
Math; Beginner's Corner; Quilt 
Squares; Home Telecommu- 
nications; Downloading 


August 1984: Campaign Manager; 
Sprite Magic; Sno Cat; Beginner's 


communications; Uploading 


Corner: Using a Printer; Home Tele- 


COMPUTE!’s GAZETTE Back Issues 


Issues not listed are not available. 


October 1984: Trek; Quiz Master; 
Vocab Builder; VIC Music Tutor; 
First Aid; Hi-Res Screen Dump 


November 1984: C/G Term; Jump; 
Bagdad; Budgeteer; Function Key; 
Disk Auto Load 


August 1985: Space Dock; Mixing 
Text and Hi-Res Graphics; Crunch; 
Creating Hi-Res Graphics on the 
64; ReDisk; Hi-Res Toolbox 


December 1985: Whirlybird; 
Quickchange; Banners; The 
Construction Set; SpeedCheck: 
Word Processor Spelling Checker; 
Disk File Archiver 


January 1986: Sprint: A Compiler 
for the 64; Face-Off; The Fast 
Assembler; Programming Music and 
Sound on the 128; Disk 
Disassembler; BASIC Windows 


February 1986: Mini-Filer; Kicker; 
Lexitron; Snapshot; Commodore 
128 Memory Map; Disk Editor; Disk 
Commands on the 128 


March 1986: Survivor; Shifter; 
Number Construction Kit; The 
Coordinator; Cataloger; Clavier 64; 
VIC Dump 


April 1986: Turbo Copy; Dunk; All 
About CP/M on the 128; Directory 
Filer; Windows on the 128; Input 
Windows 


May 1986: Arcade Baseball; 
Vampyre Hunter; Klondike; Read- 
A-Tune; Super Synth; Word 
Counter; Double Load; 
Coder/Decoder 


June 1986: Star Dragon; Predictor; 
Switcheroo; Solarpix; Quick Key; 64 
AutoBoot Maker; Help Screens; 
SpeedScript-80 for the 128; 
FontMaker 


Back issues are also available for 
COMPUTE"’s Gazette Disk. Each 
Disk back issue costs $12.95 plus 


$1.00 shipping and handling. Call 
COMPUTE!’s Customer Service 
Department for details. 


Back issues of COMPUTE!’s GAZETTE are $6 each. All prices include freight in the U.S. Outside the 
U.S. add $1 per magazine order for surface postage, $4 per magazine for airmail postage. ALL BACK 
ISSUES ARE SUBJECT TO AVAILABILITY. 


In the continental U.S. call 

TOLL FREE 800-346-6767 

(in NY call 212-887-8525 
Or write to: 


COMPUTE!’s GAZETTE Back Issues 


P.O. Box 5038, F.D.R. Station 
New York, NY 10150 


Prepayment required in U.S, Funds. MasterCard, VISA, and American Express accepted. 
North Carolina residents please add 47% sales tax. 


Lai 
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WE'VE GOT TOP HITS FOR AMIGA 


BUSINESS 
Textcratt 
Amiga Pascal 
Lattice C Compiter 
Amiga Assembler 
On Line 
Bulletin Board System 
Caleratt 
Rags to Riches Ledger 
Rags to Riches Payables 
Rags to Riches Receivables 
Rags to Riches Sales 
EnableWrite 
Enable Calc 
Enable File 
Scribble 
Gizmoz 
Analyze Spread Sheet 
Marauder 
VIP Professional 


EDUCATIONAL 


French Grammar | 
Spanish Grammar 1,1 & Il 
Comprehensive Grammar 
Reviow | & Il 
Analogies | & Il 
Sentence Completion 
College Aptitude Reading 
Comprehension 
Practical Composition 
hill V&V 
Practical Composition I 
Vocabulary Adventure |, I & lil 
Reading Adventure | 
Reading Adventure Il & Ill 
Reading And Thinking |, & Ill 
Lessons in Reading & Reasoning 
U.S. Geography Adventure 
World Geography Adventure 
Ath tl, V 
Speller Bee 
Kidtale 


WE CARRY A COMPLETE LINE OF SOFTWARE. 
THE FOLLOWING IS JUST A SAMPLE OF OUR PRODUCTS. 


ELECTRONIC ARTS 
Music Construction Set 
7 Citios of Gold 
Adv. Construction Set 
Archon 
Archon It 
Financial Cookbook 
One On One 
Pinball Construction 
MurderiZinderneut 
Sky Fox 
Carriers At Wat 
Heart of Africa 
Ultima IV 
Moviemaker 
Bard's Talo 
Lords of Conquest 


INFOCOM 
Enchanter 


Hitchhiker's Guide to the Galaxy 


Ballyhoo 


EPYX 
Bollblazor 


Rescue on Fractalus 
IB Summer Games it 
World Karate Championship 
Winter Games 
The Eidolon 
Koronis Rift 
HHH Tome of Apso! Tly 
ast Load (R) 
Miron Muligion 


HARDWARE 
1670 Modem 


C128 Computer 
1571 Disk Drive 
1572 Dual Drive 
1902 Monitor 
MPS 1000 Printor 


SSI 
Kamplgruppe 
Operation Market Garden 
Computer Quarterback 
Battle for Normandy 
Broadsides 
Gemstone Warrior 
Imperium Galactum 
Six Gun Shootout 
Phantasie | & Il 
Computer Ambush 
Colonial Conquest 
Question 
Battalion Commander 

‘enadier 


Fighter Command 
Battle of Antietam 
USAAF 

Battle Group 
Rings of Ziflin 


GAMESTAR 
Star League Baseball 
On Field Football 
On Court Tennis 
Star Rank Boxing 


ABACUS 

Ada Training Course 
TAS-64 
Basic 64 
Assembler Monitor 64 
Power Plan 
Anatomy of the Commos 
Anatomy of tho Commodore 
‘Anatomy of the 1541 (Book) 
Anatomy of the 1841 (Disc) 
Chart Pak C-64/C 128 
Super Pascal C-64/C-128. 
Super "C” Compiler C.64/C-128 

NEW C-128 BOOKS 


128 internals 


ea 


a, $49 
ea, $44, 
$109 
$49 


0a, $49 
$42 
$42 


ENTERTAINMENT 


Racter 
Ballyhoo 

Music Studio 
Borrowed Time 
Mindshadow 

Skyfox 

Arctic Fox 

Financial Cookbook 
Seven Cities of Gold 
Deluxe Paint 

One On One 

Deja Vu 

Halley Project 

Aegis Draw 

Aegis Animator/images 
Brataccas 

Deluxe Print 

Temple of Apshai 
Rogue 


DAVIDSON & ASSOCIATES 
Math Blaster! 
Word Attack! 
Spell It! 


MICROPROSE 
F-16 Strike Eagle 
Kennedy Approach 
Decision in The Desert 
Crusade In Europe. 
Acrojet 
Silent Service 
Gunship 
Conflict in Vietnam 


MASTERTRONIC 
1985 The Day After 
Action Biker 
Ant Attack 
The Black Crystal 
BMX Racers 
The Captive 
Challenger 
Chillor 
Count with Oliver 
Dark Star 
Findors Ke 
Give My Regards to Broad St 
Kik Start 
Look Sharp 
Make Music with Mister Tronic 
More Adventures of Big Mac 
The Quest for the Holy Grail 
Se-Kaa of Assiat 
Sky Jet 
Star Race 
Vogas Jackpot 
Magic Carpet 
Spooks 
The Last V8 
Space Walk 
Mind Control 
The Hero of the Golden Talisman 
Slugger 
FiveA Side Soccer 


SUBLOGIC 
Flight Simulator It 
‘Scenery Disk (For Above) 
Western U.S, (Disks 1-6) 
Jet 
‘Whole Brain Spelling 
ACCOLADE 
Hardball 
Dambus 
Fight Night 
Law of the West 
PSI5 Trading Company. 
ACTIVISION 
Alter Ego (MIF) 
Borrowed Time 
Little Computer People 
Fast Tracks 
Hacker 
Alcazar: The Forgatten Fortress 
Great Am. Cross Country 
Road Race 
Countdown to Shutdown 
Mastors of the Lamps 
Mind Shadow 
Space Shuttle 
Ghostbusters. 
The Music Studio 
Game Maker 
Computer Fireworks Celebration kit 
The Designer's Pencil 


TOP HITS 


CSM1541 Disk Alignment 
Paperclip C-64/C-128 
Homepak 
Newsroom 
Clip Art 1 & 
Mr, Nibble & MSD Versi 
Fontmaster I 
S'Mor 
Karateka 

t Hack'em 


Vizastar XL8/C128, 
Merlin 64/128 
Print Master 
Art Gallery | 
Print Shop 
Graphic Library 1, i 
Print Shop Companion 
Home Word’Spellee 
Leader Board Golf 

Tournament Disk (For Above) 
Snapshot 
10th Frame 
GEOS 
Kung Ful 
Elite 

RIBBONS 

Commodore 1525 
Commodore 1526/802 
Commodore MPS:801 
Commodore MPS-803, 


Star Powertype 
Stor Gemini 10 - Black 
Star Gemini 10 - Color 


TOP QUALITY BULK DISKS 
100 Quality DSOD ea. 
100 Quality SSDD 
Less Than 100 — DSOD 
Less Than 100 — SSDD 


c 
C128 Tricks & Tips 
1571 internal 

MOn The C128 


VIC 1350 Mouse 
VIC 1700 128. Expander 


WE CARRY A FULL LINE OF PANASONIC, STAR, EPSON, i 
OKIDATA AND LEGEND PRINTERS. CALL FOR CURRENT PRICES. 


Ale TITLES ON DISK UNLESS MARKED (R) FOR ROM CARTRIDGE 
WE CHECK FOR STOLEN VISA & MASTERCARD Customer Service 


& Ohio Residents 
M-F 10 a.m.-8 p.m.,;, Sat. 10-3 ET 1-513-879-9699 
Not Have Information on 37 S. Broad Street, Fairborn, OH 45324 


Previous Orders or Product Specs. AD #G-086 


‘SOFTWARE ONLY — Propaid orders over 950 receive free shipping via UPS in continental U.S. Please add #2 orders under $50. HARDWARE and all 
orders requiring shipment via U.S. Post Office are subject to additional freight charges. Add 95 for COD orders. VISA/MasterCard orders add #2 service incor) 


Order 
1-800-282- ‘0333 


ORDERS ONLY! Sales Personnel Do 


charge. Ohio residents add 5.5% sales tax, Personal checks require a three-week waiting period. No waiting when paid by credit card, certified check 
or money order. Allies subject to availability and price change. PLEASE CITE AD NUMBER WHEN ORDERING, ALL RETURNS MUST BE ACCOM- 
PANIED BY AN AUTHORIZATION NUMBER. 


THE COMMODORE CONNECTION 


commodore 64 


System 
INCLUDES: 

° CB64 Computer 

¢ CB1541 Disk Drive 

¢ Taxan 220 Color Monitor 


$49900 


ATARISOFT/Commodore 
PacMan... 

Centipede. 

Galaxian, 

Defender... 

ig Dug. 

Donkey i 

Robotron... 

BATTERIES INCLUDED 
Paperclip 64/128...... 
Paperciip/Spell Pak 
Spell Pak 
The Consuitant 
HomePak uss: sane 

BRODERBUND 

The Print Shop... ienaheva 
Graphics Library 1,2,3 @ 
The Music Shop. 
Bank Street Writer..... 
Graphics Companion... 

CARDC! 
Freeze Frame........... rot 
S'more Basic 


MODEMS 
Anchor Volksmodem..... 
Anchor 6480 (64/128) 

300/1200 Baud. 
CBM 1660 (C-64), 
CBM 1670 (C-128). 


$5999 


$13900 
$5999 
$47900 


DRIVES 
CBM1541. ... 819900 
CBM1571. $24900 
MSD-1 $21900 
MSD-2.. $45900 
INDUS-GT (64/128)....$19900 


\V/AMIGA System 
Includes: 


AMIGA 1000 CPU, 512K, 
Amiga RGB Monitor 


$139900 


SOFTWARE 


COMMODORE 
Jane-integrated 
Assembler 64. 
Plot 64... 
Super Expander 


Moon Shuttle. 
Pooyan... 
O'Riley's Mine.” 


ER 
Marauder Amiga BI/U..... 
Omniwriter..... 


Benji 
HES GamesiOly 
Graphics Basic... 
MEGA’ 
ACopiel. score 
A-Report 
Text Craft 
Graphic Cratt 


PRINTERS 
COMREX CR-220...... ’ 
EPSON Homewriter 10........ 
OKIDATA Okimate 10. 

STAR SL10C........ 
PANASONIC 1080 

G.ITOH 7500 AP.. 


INTERFACES 

CARDCO G-WHIZ. 

CARDCO Super G... 

Digital Devices U-Print C. 

Orange Micro Grappler CD. 

PPI Printer Interface... 

Xetec 8K... 

Micro R & D MJ35 559 
ACCESSORIES 

CompuGuard Protector..... 

Curtis SP2 Protector. 

Curtis Safety Strip ... 

Computer Specialties Power Pluss5400 


commodore 128 


System 
INCLUDES: 
° CB128 Computer 
¢ CB1571 Disk Drive 
¢ Magnavox 8562 RGB/ 
Composite Monitor 


MICRO SYSTEMS 
Analyze for Amiga. 
Scribble 
On-Line 


Professional Software 


Fleet Systems Il C128/64. 

Fleet Systems Ill C128. 

Trivia Fever... : 

PFS 
SPRINGBOARD 

The News Room 

Clip Ans, 


Clip Ants Il... 
|, SuBLOGIC 
Flight Simulator 1 
Jet Simulator C64..... 
SPINNAKER 
Rhymes & Riddles, 
Alf Cocor Caves... 
Bubble Burst... 
Snooper Trooper's #1....... 


MONITORS 
COLOR/COMPOSITE 
Taxan 220, $47900 
MONOCHROME 
NEC 1205 Amber 
with audio 


DISKETTES 

MAXELL MD1i... 
NASHUA SS/D 
ELEPHANT SS/DD. 
GENERIC DS/DD aL n File 
10 Disk Holder. 

AMARAY 
Disk Tubs. 


File... 


COMPUTER MAIL ORDER 


CALL TOLL-FREE 1-800-233-8950 5: 


477 East Third Street, Dept. A408,Williamsport, PA 17701 
EDUCATIONAL INSTITUTIONS CALL TOLL-FREE 1- De eee 


POLICY: hi Je sor $7.00) shi tion 


1-800-268-3974 


Ontario/Quebec i Provinces 


1 800- 268-4559 


1-416-828-0866 


lear. For faster delivery 
subject ty. OD, 


warranty We onesteuue 


Telex:06-218960 
2505 Ounwin Drive, 
Mississauga, Ontario 

Canada USUiT1 


ATTENTION 


ALL COMMODORE 64, 
VIC 20, COMM. 16 AND 
COMMODORE 128 owners 


A complete self-tutoring BASIC programming course 
is now available. This course starts with turning 
your computer on, to programming just about 
anything you want! This course is currently used 
in both High School and Adult Evening Education 
classes and has also formed the basis of teacher 
literacy programs. Written by a teacher, who after 
having taught the course several times, has put 
together one of the finest programming courses 
available today. This complete 13 lesson course 
of over 220 pages is now available for the COM- 
MODORE 64, VIC 20, COMMODORE 16 and the 
COMMODORE 128 and takes youstep by step thru 
a discovery approach to programming and you 
can do it all in your leisure time! The lessons are fil- 
led with examples and easy to understand explanat- 
ions as well as many programs for you to make up. 
At the end of each lesson is a test of the information 
presented. Furthermore, ALL answers are supplied 
to all the questions and programs, including the 
answers to the tests. Follow this course step by 
step, lesson by lesson, and turn yourself into a 
real programmer! You won't be disappointed! 

We will send this COMPLETE course to you at 
once for just $19.95 plus $3.00 for shipping and 
handling (U.S. residents, please pay in U.S. funds). 
If you are not COMPLETELY satisfied, then simply 
return the course within 10 days of receipt for a 
FULL refund. 


“ Now available! a 200 page course 
exclusively on sequential and rel- 
COURSE ative files using a unique approach 


for those with very limited file programming ex- 
perience - set up your own personal and business 
records! — disk drive a must — same author — 
same guarantee — same cost— this course for 
all computers except Vic 20. 
Fill in the coupon or send a facsimile. 

a | 


CG 


NAME 
ADDRESS 
CITY: 
PROV./STATE: 


POSTAHZIR (00 —————E————— 
| I desire the BASIC program: Any complete course: $19.95 | 
ming course for: Postage and Handling: $3.00 
Commodore 64 1 Vic 20) Total: $22.95 
Comm. 128 5) Comm. 16 [Send Cheque or Money Order to: 
I desire the FOLLOW-UP () Brantford Educational Services 
course on relative and seq: 6 Pioneer Place, 

uential files for all above Brantford, Ontario, 


PERSONAL 
COMPUTER 


CALL 


DISK DRIVE 
$229 


= — 


1902 MONITOR 


$289 


CALL FOR SUPER PACKAGE PRICES 


computers but Vic 20). Canada N3R 7G7 


1350 MOUSE 
ONLY $4995 


EST. 1982 


Computgtbility. 


ORDER LINES OPEN 
MON - FRUIT AM. -7 PM CST 
SAL 12 PM.- 5 PM CST 
FOR TECHNICAL INFORMATION, 
TO ORDER CALL TOLL FREE ORDER INQUIRIES. OR FOR WIS. ORDERS 


800-558-0003 414-351-2007 


ROERINGWFORMATION FOR FAST DEL VERY SEND CASHIERS CHECK MONEY ORDER 8 
DIRECT BANK TRANSFER. Pi 


PO. BOX 17882 
MILWAUNEE. WI 83217 


AN ORDERS PLEASE ADD 


S$ OUTSIDE CONTINENTAL U.S.A We SHIP ALL OROERS FAST 
AIL IF SE eter ‘EXCEED THE Min AMOUNT YOU 
We CHARGED THEADDITIONAL AMOUNT TO. | 

YOUR PACKAGE T0 YOU GUICKLY AND SAFELY, — 


NO SURCHARGE ON CREDIT CARDS = 


COMMODORE 64 & 128 


NEW nx-10 PRINTER & 
XETEC SUPER GRAPHIC INTERFACE 


PRINTERS 


feoenisd 1080 . 


Legend 608 . 

Panasonic 1091 
Powertype 

Panasonic 1080. 215 


$309 
This isa SHIPPED PRICE anywhere in continental USA 


U-Bull 16K. 
U-Butt 64K, 


PRINTER INTERFACES 


1 Super Graphic 


PANASONIC 1091 & 
XETEC SUPER GRAPHIC INTERFACE 


$309 
This isa SHIPPED PRICE anywhere incontinental USA 


MODEMS 
Commodore 1660 
Westridge 6420 
Commodore 1670 


Hacker, 
Mindshado 
Mastertype 
VIP Professional 


COMMODORE 64 
SOFTWARE 


ABACUS 64 


Chartpak 


Tournament Disk 


ACTIVISION 


r 
Compute 
Alter Ego 
Borrowed Time 


BATTERIES 
INCLUDED 


Lt Peapie 


Paper Clin 
Home 01 


8-80 Car 


BRODERBUND 
Bank Street Weiter 
‘Music Shop-0 

Print Shop: 
Kareteka-D 

Champ Loderunner-D 
Prt Shop Graphics-D 
Print Shop Refill 

Prt Shop Graph 


Archon-D 
Archon t+ 

Mule-D 
Realm/Imposs-0 
Murder /Zindesneut-D 
Music Construction-D. 
Pinball Const -D 
Skylox0 


C-128 COMPUTER 
1571 DISK DRIVE 
1670 MODEM 
1902A RGB MONITOR 
1750 RAM EXPANDER 
1350 MOUSE 
Call for latest price 


Commodore 64 
1541 Disk Drive 
1802 Monitor 
Call for Latest Price 


SUPER TIME WORKS SPECIALS” 


Data Manager Il... 31.95 Sylvia Porter..... 37.95 Inventory 
Wordwriter/Spell. . 31.95 Accounts Payable...37.95 Management ... 37.95 
Swiftcalc/ Accounts Rec. . 37.95 Data Manager-128 . . 42.95 
Sideways ..... 31.95 Sales Analysis. ... 37.95 Wordwriter-128... 42.95 
Evelyn Wood..... 31.95 Payroll Swiftcalc-128 .... 42.95 
Sideways . . 1895 Management... 37.95. Sylvia Porter-128 . . 42.95 


*SUPER SPECIAL PRICES EFFECTIVE NOW THRU AUGUST 31, 1986 


Keyboard Cadel 
Monkey Busine 


EST. 1982 
Computgtbility. | 
Infocom PO, Box 17882, Mjwaukee WI 83017 


ORDER LINES OPEN 
Tpm CST Sat 12 p.m 


To Order Call Toll Free 


800-558-0003 


For Technical Info, Order 
Inquiries, or for Wisc. Orders 


414-351 2007 


ORDERING INFORMATION: Picas se spec syste 
delivery send castiers chee f 
ampany checks allow 


Mon-Fav 11 4m Spm CST 


IGROPROSE 
Guncnp.D 
Accrajet0 
Fer Strike Eagle Ds... .2395, 
q ‘ Suiltcalew/Sideways 3445 
aes ta HI AK FPO Manager +0 


2395 SA B 3015 
Word Wer SpeitD 3485 


MONITORS 


Commodore 
TEN nanan 
Nap Green TTL 
(lor 128) 
Commodore 
902A... 666s 
NEC JC1225 
Gold Star 


COMPUTER 


Call for availability 
and pricing 


COMMODORE 128 
SOFTWARE 


P 
P. 
P 


c 


MISCELLANEOUS | 64 
Sublogie Football 
Prnmase 


Loderunner's Rese:D 
Mindwhee-D 
The Works.0. 


y Vol ID 

Imernat Hockey:0. 

Fourth ProtocolD 

Blazing Paddles-0 
1 Huey: 

Spell 0, 

Math Blaster 


COMPUTER CENTERS 


OFAMERCA Sizzling Summer Specials 
Se “\4s.On All Your Computer Needs 


> IN NEW YORK STATE CALL TOLL FREE 4_} a 
Rsoae 1-800-221-2760 or 516-349-1020 1-800-631 1003 
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x commodore 64 PACKAGE meen — Eee Liyteo Tie ony 
¢C INCLUDES: SPECIAL INTRODUCTORY PRICE 


*Commodore 64 Ci 
«Commocore 1541 Die Dive 7 PRINTER SPECIALS 


* A Color Monitor with Cables («3 commodore FROM CCA 


CALL FOR PRICE 


1571 DISC 95 STAR FOWER nes 

14" cononison's TO® $249 Pe la 
ie Dan 

=r we" 825995 


*Including: Shipping, Handling and sg 
Insurance—No Extra Charges [Sara INIT STAR KICK eal 
GEMINI STAR 10X 


RGB AND COLOR COMPOSITE 
$24995 Reena tel Z 
SPECIAL INTRODUCTORY PRICE — SS 


(e commodore 


128 —= 
x commodore 
cS monmror || PERSONAL COMPUTER 13” COM SS MPOSITE 


CALL FOR $ 95 Be racer 
sy PRICE ag? and $ 12495 


Insurance—No Extra Charges 
$24.95 Paperback Writer 128 
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Tecalateret mechs PACKAGE Paperback 


Planner 128 


Eidolon - Lucas Games Trilogy 

Ballblazer-Lacas Games Jet Combat oa YOUR CHOICE 
Rescue Fractalus - Lucas Simulator * Commodore | 5 5 
Games Gi Joe * Commodore 1571 29? 
Fastload Summer Games or I ~ 


Wintergames Barbie * RGB/Composite for the Commodore 128 


Hot Wheels Baseball ® Color Monitor 
= Beane 
We Carry ALL ie INTERFACES | 
Commodore Software $ 72995 4\ 
Teleys Turbopoint GT 
Fleet System II @ INCLUDES «i z Prints ennanced ope 
35995 DELIVERY A Carbeoe + Califor Price 


Microworld . .Call for Price 

Fleet System Ill PPI = 34495 
Xeléc - Super Graphics Sr 569% 

Xelec - Super Graphics Jt 54g 


$s 6 495 
‘Check, Money Order, MC or VISA accepted. No 

additional charge for MasterCard and Visa. Call for IN NEW YORK STATE CALL TOLL FREE 
shipping and handling Information / NYS residents 1-800-221-2760 or 516-349-1020 

add applicable sales tax / Prices and availability are COMPUTER OR WRITE: COMPUTER CENTERS OF AMERICA 
subject to change without notice / All factory fresh a 81 TERMINAL DRIVE, PLAINVIEW, NY 11803 
merchandise with manufacturer's warranty. Dealers COMPUTER CENTERS 

ator eh manclacrners aaron COMPUTER C 1-800-631-1003 
rebate Information. Plus shipping and handling. No 81 TERMINAL DRIVE 

returns without return authorization number. 1-800-548-0009 

[tIN CONTINENTAL USA ONLY. APO PLUS FPO EXTRA. PLAINVIEW, NY 11803 


A Printer For 
All Reasons 


Search For The Best 
High Quality Graphic Printer 


The Results Are In| We ran many printers through 
our battery of tests and this one came out first in its 
class. Our SP-1000, built by Seiko is a 100 characters 
per second, (12 horizontal by 9 vertical matrix), full bi- 
directional, logic seeking, true descender printer, The 
character matrix in NLQ (Near Letter Quality) mode is 
avery dense 24 (horizontal) by 18 (vertical) 


Features That Won't Quit With the SP-1000 your 
computer can now print 40, 48, 68, 80, 96, or 136 
characters per line. You can print in scores of style 
variations. You not only have standard Pica, Elite, 
Condensed and Italics, but also true Superscripts and 
Subscripts. Use bold, or italics to make the words 
stand out. Or, if you wish to be even more emphatic, 
underline the words. You can combine many modes 
and styles to make the variation almost endless. 


Forms? Yes! Your Letterhead? Of Course! 

The tractors are adjustable from 4 to 10 inches. You 
can also use single sheets, plain typing paper, your 
letterhead, short memo forms, labels, whatever you 
choose. Any size to 10” in width. It will even load your 
paper automatically. Multiple copies? Absolutely! Use 
forms up to 3 thick, Spread sheets with many 
columns? Just go to condensed mode printing and 
print a full 136 columns wide all on a standard 81" 
wide page. Forget expensive wide-carriage printers 
and having to change to wide carriage paper. 


An Extra Long Life (2.5 million character) ribbon 
cartridge is only $11.00. Order #2001. You need 
absolutely nothing else to start printing—just add 
paper (single sheet or fanfold tractor) 


No Risk Offer We give 

you a 2-week satisfaction } 
guarantee. If you are / 
not completely 
satisfied for any 
reason we 

will promptly 
refund your 
purchase 


The warranty has now been extended to 2 years and 
service centers are located nationwide for your 
convenience 


The Bottom Line: 


Commodore C-64 & C-128, Order #2200. graphics 
interface & cable built in. $199.95 

IBM-PC and compatibles, Order #2100, $219.95 
plus 8’ shielded cable #1103, $16.95 


Apple lic or Macintosh, Order #2300, $219.95 
with cable, specify computer 

Standard Parallel with 36 pin Centronics connector, 
Order #2400, $219.95 no cable 

Standard Serial with RS-232 (DB-25) Connector, 
Order #2500, $219.95 no cable 

Be sure to specify the order # fer the correct version 

printer designed for your computer. 

Interfaces and cables for other computers. 

Call 805/987-2454 for details 


Shipping in cont. US is $10.00, UPS Blue is $22.00. 


Letter Perfect 


Now! Full Feature, 20 CPS, 
Letter Quality Printer only $319.95 


For those who need a Daisy Wheel Printer, our 
Daisy 1120 has it all. To start with, it has a front 
control panel with indicators for Pitch Selection which 
allows for 10, 12 or 15 pitch or Proportional Space print- 
wheels. There is a Select (Online) button with indicator 
and a Line Feed button. You can also set Top-of-Form 
or Form Feed with the touch of a button. Other indi- 
cators include Power and Alarm. The built in 2K buffer 
allows a page or two of concurrent printing and use of 
your computer for the next job. To really take advan- 
tage of your printer's optional features, the automatic 
Cut Sheet Feeder elimi- 

nates tiresome single 
page handling j 


andthe adjust |) 
able Tractor } ® 
Feed option 


handles all con- N a 
tinuous form paper. \ 

Best of all the Daisy XX 
1120 is quiet: only 58 dB.\.__ 
Total Compatibility The Daisy 1120 uses 96 
character Diablo* compatible printwheels. At 15 
pitch you can print 165 columns—a must for 
spreadsheets. 

The Daisy 1120 uses the Diablo Hytype II" 
standard ribbon cartridges, also universally available. 

Not only is the hardware completely compatible, 
the control codes recognized by the Daisy 1120 are 
Diablo 630" compatible (industry standard). You can 
take advantage of all the great features of your word 
Processing package and automatically use 
superscripts, subscripts, automatic underlining, 
boldface and doublestrike 

The printer has a set of rear switches which allow 
the use of standard ASCII as well as foreign character 
printwheels. Page length can be set to 8, 11, 12, or 
15". The Daisy 1120 can also be switched to add 
automatic line feed. 

Try the Daisy 1120 for 2 weeks. If you are not 
satisfied we will issue a prompt refund. 1-year parts 
and labor warranty is included 
The Bottom Line Aprotek Daisy 1120 (Order 
#1120) $319.95 w/standard Centronics parallel 
interface, 2K buffer, ribbon and printwheel 


Options: Compare our prices! 

Auto Cut Sheet Feeder (#1110) $185. Shipping $7 
Bidirectional Tractor Feed (#1112) $75. Shipping $5. 
Interfaces for most computers are available—call 
Shipping in cont. US is $11. UPS Blue is $24 


ORDERING INFORMATION California residents add 
6% tax. All prices are cash prices — VISA and MC add 3% to 
total. We ship the next business day on money orders, 
cashier's checks, and charge cards. A 14-day clearing 
period is required for checks. Prices subject to change— 
CALL. Dealer inquiries invited 


For information call 805/987-2454 
TO ORDER CALL TOLL FREE 


1 (800) 962-5800 - USA 
1 (800) 962-3800 - Calif 


Or send order to 


(8-8 PST) 


= APROMK vee 


1071-A Avenida Acaso, Camarillo, CA 93010 
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SELECTRA II 


RO-TECH-TRONICS_ 


eapolis, MN 55430 © (612) 560-6603 


SCHOOL P.O.'s Accepted! 


1-800-345-5080 


First, Fast... 
and Still the Best! 


We're the first company to offer fast, expert Commodore 
service anywhere in the USA. And we're still the best! 


For one low price, we repair all problems on most types of Commodore 
equipment. All regular repairs carry a 30-day warranty, with a full-year warranty 
available for only $30 more. For preventive maintenance, we also offer a 1-Year 
service Contract at a savings of $20.00. Check our low prices! 


Repair with Repair with 1-Year 
30-day Warranty 1-Year Warranty Service Contract 


C-64 or C-128 Computer $59 $89 $69. 
1541 or 1571 Drive 65 95 75 
1702, 1802 or 1902 Monitor 75 105 85 
MPS-801, 802, 1525 or 1526 59 89 69 
1541 or 1571 alignment (only) Just $29.95 

And as an extra benefit — our repair customers are eligible for big discounts on software and 


hardware purchases. 
FREE PERMANENT FIX 


A $69.95 value — includes alignment and modification to stay in 
alignment. FREE for a limited time with any 1541 repair! 


We also offer the best rates for Amiga repairs. 


For fast, expert service ... 
Just call our toll free number today! 


1-800-624-6794 


(For your convenience, have your equipment serial number and credit number ready. 
Checks and money orders also accepted). Add $7.50 for shipping — includes two-day air 
service anywhere in the Continental USA. For APO-FPO and P.O. Box addresses, add 
$15.00 for shipping (excluding air freight). 


1B 
aS 
COMPUTERS 


3402-E W. Wendover Ave., Greensboro, NC 27407 
1-800-624-6794 or (919) 299-0391 


X* A Complete Pro Football 
y Prediction Program For The 
k 1986 NFL SEASON 


61 % Accurate vs ‘Spread’ Since 1981 
0 -+ More Features — More Information In 1986 To 
BEAT THE SPREAD 
% & FEATURES * * Age een HIBPING & HANDLING 


i Apple Il — llc — lle 
Predicted Scores Each Week Gaunitore' 6428 


Season Schedule By Week/Team IBM PC, Tandy & Compatibles 
Records & Results: TRS-80 MIII/IV 


Scores By Week Stats Needed To Run Program 
Scores By Team Available In Local Newspapers 

a : or 
Division Standings We Will Furnish Stats By Mail Or Modem 
Standings vs Line All 20 Weeks — Season Price . . . 40° 
Stats — Accumulated & Average Program Comes Updated Thru Current 


1983-1985 Data Base Week Of Season . . . No Extra Charge 


Paleo (O}eRBNSH ma ORDERS SHIPPED IN2 DAYS 
Printed Copy All Screens PHONE LINES OPEN 24 HRS. 


| TOLL FREE — 800-722-2277 
Easy Update—Playoffs/1987 TEXAS COLL. — 214-586-8212 


MaratHon Sortware Derr. G 
P. O. BOX 1349 
JACKSONVILLE, TEXAS 75766 

TOUL FREE & COUECT FOR ORDERS ONLY 


Dealer Inquiries Invited 


PHONE 
THE LOWEST THE BEST 


PRICES SERVICE ELECTRONIC ONE* one ie 
CALL (614) 864-9994 © P.O. Box 13428 « COLUMBUS, OHIO 43213 


HARDWARE commodore SARGON Ili 29.97 BREAK DANCE 
C84 COMPUTER 139.97 (Sasa HACKER 1697 ALF COLOR CAVES 
SG10-STAR Peer 219.97 HARDBALL 18.97 ONE ON ONE 24.97 CONGO BONGO 
SEIKOSHA. Se Mier 2isr Ss BARDSTAE 247 WEBSTERWORD GAME 
COMREX 69.97 FLIGHT SIMULATOR II 2997 DISKS: 7 JUICE (0) 
1G WISN TEBRAGE oad MACHS 2297 PRECISION 1D) 897 SNAKE MAN 
EXMAG INTEREACE: 49.97 SUPER PASCAL, 4497 ei RSIS i DIG DUG 
PPLINTERFACE 32.97 HOME PAC 2997 eENTECH COVE 52 OG. ee POLE POSITION 
XETECIR Se OMENS UNTANT I cscaeer ” DBMNOTCHEA 2e7 CORONER 
XETEC SA. (8k) 59.97 SYLVIAPORTER, 54.97 ~~ GRID RUNNER I 


COMM, 1200 BAND MODEM. 149.97 NEWS ROOM, 3a07 THE BOSS 11.97 BEAM RUNNER 


MESSENGER MODEM 9297 RINTSHOPCOMPANION. 2207 THESAT 1697 UMP MANS 

NOOR e, PRINT SHOP GRAPHLIB. 1497 SWAY. 19.97 
\e"THOMPSONCOLOR. ....rgo97 ‘PRINT SHOP GRAB or Rar 37 ALL QUALITIS ARE LiMiTED 
e-NecizscoLon, taag7 © WORDWRITER {497 SPECTRO VIDEO 1 ist Au AE DISK Of CART 
15" SAKATACOLOR {5097 SPECTRO VIDEO? tr 


HOW TO ORDER: CASHIER CHECK, MONEY ORDER, MASTERCARD" OR VISA" (ADD 4%» FOR CHARGE CARDS)... NO PERSONAL CHECKS... NO C.0.0's 
SHIPPED U.P.S.... ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 
SHIPPING: ADD $3.00 ON ALL ORDERS UNDER $100.00... ADO $5.00 ON ALL ORDERS OVER $100.00. ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS, 
INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUDING A.P.O. 
POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION . . . NO RETURNS UNLESS DEFECTIVE, ALL DEFECTIVES WILL BE EXCHANGED .  . NO 
XCEPTIONS. 
CALL OR WAITE FOR FREE CATALOG 


CALL ELECTRONIC ONE (614) 864-9994 


Sensational Prices! 
On Our Most Popular Items! 


From micro fer 


THE 69C piskette! 


‘Are you paying too much for diskettes? Try our first 
quality, prime, 5%" diskettes (no rejects, no seconds) 
at these fantastic sale prices and save, save, SAVE! 
Disks are packaged in boxes of 50; each box contains 
5 shrink wrapped 10-packs that include diskettes in 
sleeves, labels, and write-protect tabs. 


Each diskette is certified to be 100% error free and 
comes with a lifetime warranty (if you have a problem, 
welll replace the diskette). All diskettes include hub rein- 
forcement rings and write-protect notch. 


All diskettes are double density and work in either 
single or double density drives. 


SS, DD Diskettes, Box of 50 
32391 $34.50-69¢ ca.! 


DS, DD Diskettes, Box of 50 
32403 $44.50-a9¢ ea.! 


POWER and PROTECTION 
FOR YOUR C-64! 


POW’R PAK 64 * == 


Pow’ Pak is a replacement power supply (1.5 amp) 
for the Commodore 64. . . but that’s not alll Pow'r Pak 
also supplies two additional surge protected outlets 
(120V) for monitor, disk drive, or other peripherals. 
On/off switch. Fuse protection. Sturdy all-metal cas- 
ing is ventilated for heat dissipation. Full 1 year 
warranty. 


34910 $49.95 


CARTRIDGE EXPANDER 


Plus 822.95 
FAST LOAD 
OFFER! 


Stop wearing out your computer by endless cartridge swapping! 
Tho Navarone cartridge expander features 3 cartridgo slots, Reset 
the computer independently of the power switch, Cartridge slots 
fe vertical for easy access 

computer. 

33227 3-slot Cartridge Expander 


The cartridge expanderis a great companion forthe Epyx Fast Load 
cartridge —you can Keep it permanently installed plus have two 
Sides fe for other carnogest 
34216 Fast Load Canridge (Sug, Reta $2095) $24.95 
Fast Load Only $22.95 
with purchase of cartridge expander! 


From Your Friends At We gladly accept 
mail orders! 


P.O. Box 6578 


South Bend, IN 46660 


Questions? Call 
219/259-7051 


LOWEST PRICES IN U.S.A.! 


St@iz BMC AXIOM INDUS 

ot @) EPSON CARDCO 

We can offer you some of the lowest prices in the country on the most popular printers, mon 
itors and interfaces, Our normal prices are already low, but to make sure you get the best deal 
you can, we will also meet most competitive prices in this publication when placed on an equal 
basis (Remember—we don't charge for use of your credit card, impose excessive shipping fees, 
or use any other hidden extras to boost the price you pay. Due to the rapid change in prices in 
the computerindustry, we can only meet prices at the time you place your order; we cannot adjust 
prices on items ordered or shipped on an earlier date.) Another plus for charge card customers. 
— your charge card is billed at time of shipment only for the items shipped — no early billing, 
no long wait for the merchandise you already paid for, 


COMMODORE STAR MICRONICS. FAMOUS NAME SOFTWARE 
C128 Computer SCALL-NX-10 SCALL — Epyx 
1571 Disk Drive SCALL_«_ SG-40C SCALL Broderbund 
1902 Monitor SCALL  CARDCO Infocom 
1670 Modem SCALL G-Wiz Interface $CALL_— Sierra 
EPSON S'MORE SCALL —Timeworks 
FX85 SCALL — Super-G SCALL Random House 
FX-286 SCALL Activision, and many more! 


OMMODORE-READY PRINTER 
‘THE BEST PRICES | SuMIMOBORE-READY PRINTER ONLY $7995! 


in cable (no other interface needed), 50 cps, tractor 
+ THE BEST SERVICE & | teed, ints upperlonar case, numerals, syibals — 
WHY SHOP Sug. Reta 14995, ie i) . 


ANYWHERE ELSE? 40733 $79.95 (~S ee Remeay 


Supply limited! Order now! 


80-COLUMNS ON YOUR | OUR Waar Mile ta: EVER! 
COMPOSITE MONITOR! 


Switch Selectable ste n 
ee DINE otitis! $149.95 
color of monochrome monitor and lets you Jeleisciy 

80-columns on the C-128 without the 40728 $149.95 
required. composite mode). TI 99/4A and many others. 


ontrast, color tint and sharpness. One year 
warranty on parts and labor, 2 years on picture tube 
From Samsung, Supply Limited! Order Today! 


DUST COVER and The Right Interface For All 
“EVERYTHING BOOK” inti fl 
SPECIAL OFFER our Printing Needstt your 


Go erly eae ht a eatery PPI ies 
Ta Se en oe cH, eeewienes 

eli ont Repair tend Sek nse 

Brae antec eet 

translucent 8-gauge vinyl sewn to our exacting 93665 $39.95 
‘standards with reinforced seams. Discover tho GMZ— builtin vutler provides super hit: 
savings 8 and easy shipping available from Interface i 1 printers, 


comput charact 
TENE Computer expres connectors included. from Cardeo. ‘Lifetime 


\ 92.95 J me nn 


31627 C-64 Dust Cover and Catalog (G1S) 
38464, C-128 Dust Cover and Catalog (G1S} 


SHIPPING CHARGES 
ORDER AMOUNT CHARGE |* } NO EXTRA FEE FOR CHARGES 


less than $20.00 $3.75 WE VERIFY CHARGE CARD 
$20,00-$39.99 4.75 ‘ADDRESSES, 


aeasenps Uae I: ORDER TOLL FREE 
teo,00 
SuCaiisteee ae 1-800-348-2778 


Pigskin 
Predictions! 


Tired of wrestling with Sunday 
point spreads? Let your Com- 
modore 64/128 do it for you! 
Pigskin Predictions, the 
best-selling NFL handicapper, 
takes the hassle out of rating 
National Football League 
games. Forget about obscure, 
meaningless statistics. Just 
spend a few minutes typing in 
each week's scores and let our 
point spread software go to 
work. Here's what Pigskin Predictions has to offer: 

™@ Predicts point spreads for all games--for the current 
week and the remainder of the season 

™ Calculates projected won-lost records for all weeks. 

™ Menu-driven selection of schedules, ratings, division 
races, predictions or results by team or week. Seven differ- 
ent reports to screen or printer! 

BH Maintains home field advantage and power ratings for 
all NFL teams. 

f™@ 1986 Schedule data file included free. Yearly updates 
available. 

Pigskin Predictions is only $39.95 on disk. Get your copy 
now and be ready for the season! 


ak SWANS, 


The Handicapper 


Use your Commodore 64/128 to improve your per- 
formance at the track! Programs for Thoroughbred, 
Harness and Greyhound racing rank the horses or 
dogs in each race quickly and easily. All the information 
is readily available from the Racing Form, harness or 
dog track program. 

Thoroughbred factors include speed, distance, past 
performance, weight, class, jockey's record, beaten fa- 
vorite and post position. Harness factors include 
speed, post position, driver's record, breaking tenden- 
cies, class, parked-out signs and beaten favorite. Grey- 
hound factors include speed, past performance, ma- 
neuvering ability, favorite box, class, kennel record, 
beaten favorite and breaking ability. 

Complete instructions and wagering guide included. 
Thoroughbred, Harness or Greyhound Handicappers, 
$39.95 each on tape or disk. Any two for $59.95 or all 
three for $79.95. 


Federal Hill Software 
8134 Scotts Level Rd. (Se! 
Baltimore, MD 21208 


Toll Free Orders 800-628-2828 Ext. 850 
For Information 301-521-4886 


APROSPAND-64™ ives your Commodore 64 or 128 full ox 


pandability! This superbly designed expansion module plugs into the expan- 
sion port & gives you 4 switchable (singly or in any combination) expansion 
connectors - plus fuse protection - plus a reset button! Before you buy an 
‘expander, be sure that it has a fuse to protect your computer and that you 
can activate your cartridges in ANY combination allowed by the cartridges, 


NOW ONLY $29.9 95 


Commodore Interfaces and Cables 
Cardprint G-WIZ Printer Interface #1108.. 
Cardprint B (without Graphics) #1 105. 
Amiga Printer Cable (6 ft) #3040-6MM. 
Amiga Printer Cable (10 ft) #3040-10MM. 
Commodore 6 Pin Serial Cable (5 ft) #3006-5MM...$ 9.95 
Commodore 6 Pin Serial Cable (8 ft) #3006-8MM...$12.95 
‘Add Shipping Por item: $3.00 Cont. U.S. $6.00 CAN,PR, Hl, AK, APO, UPS Biue 
APROTEK Daisy 1120, 20 CPS Daisy Wheel. $319.95 
Elite 5CD, 10 CPS Daisy Wheel Printer 
Commodore Direct Connect + Parallel... o+$184.95 
‘Add Shipping Per item: $10.00 Cont. U.S. __ $22.00. CAN,PR.HI, AK, APO, UPS Blue 


All Products have 2 Week Satisfaction or Money Back Guarantee 
TECHNICAL INFORMATION (805) 987-2454 


CALL TOLL FREE TO ORDER: (800) 962-5800 vs 


or (800) 962-3800 
CA es, Aas 


npiees 88 ‘ 
S> ausiss 1074-A Avenida Acaso, Camarillo, CA 93010 


les eo WIBOw 


ae IUHIE 


THE 
MIRROR 
WAI OIES 

DISK COPIER 
$24.95 


INO FINER OR MORE ADVANCED ARCHIVAL COPIER AVAILABLE AT 
ANY PRICE 
EASY TO USE, DOES NOT CAUSE DRIVE HEAD TO KNOCK. 
COPIES UP TO 41 TRACKS. 
PERIODIC UPDATE POLICY. 
AUTOMATICALLY MAKES BACK-UP COPIES FROM VIRTUALLY ALL 
PROTECTED SOFTWARE. 
NIBBLES, HALF TRACKS, COPIES EXTRA SECTORS AND EXTRA TRACKS. 
REPRODUCES ALL DISK ERRORS AUTOMATICALLY. 
FAST, COPIES FULL DISK IN AS LITTLE AS 4-7 MINS. EVEN COPIES 
ITSELF. 
WE COPY MORE! 
MASTERCARD, VISA, MO. OR CHECK OK 
+ $3 SHIPPING & HANDLING 
C.O.D. OR FOREIGN ORDERS ADD 52 
‘CALIF, ORDERS ADD 6% SALES TAX 
— WRITE OR CALL — 


Compumed 


(408) 758-2436 
P.O. BOX 6939 
SALINAS, CA 93912 
FOR COMMODORE 64 AND 1541 DRIVE 
OR COMMODORE 128 AND 1571 DRIVE 


Software Discounters Goat? 
of America Open Saturday ~ 


; art ae 
For Orders Only— 1-800-225-7638 — * Free Shipping on orders over $100 in 


PA Orders— -800-223-7784 No surcharge for VISA/MasterCard 
Customer Service 412-361-5291 Your card is not charged until we ship 


‘ABACUS BATTERIES INCLUDED, Pinball Const Set (0) Keys (0) $29.95 Build ABookiO) $16 TELARIUM 
Basic 128 Consultant (64007128) $39.” Racing Dest. Set (D) LEARNING COMPANY" Mastertypo(D) $25 Amazon iD) $21 
ChariPak 128 CALL. Home Pak(O) $33 Seven Cities of Gold (0) Ali Titles Available Gall Net Worth (0) $44 Fahrenheit 451(D) $24 
PowerPlané4 FOR Paperclip wiSpell Skyfox (0) MASTERTRONIC SIERRA Bieaan word ite sat 
SuperC 128 PRICES 64 or 128 $49 Super Bouldor Action Biker(0) $7 Champ Boxing(D) ..$16 Rendezvous 
Super Pascal 128 BERKELEY Touchdown Fo Ant Attack (D) $7 Donald Duck's wiRama (0) $21 
ACCESS SOFTWORKS Prices too low to &MX Racer (D) $7 Playgiound(D) $16 Nine Princes 
BeachHead(0) $21 Geos(D) $39 advertise! Captive (0) $7 Gooly's Word nt s21 
Beach Head 2\0) $24 + BRODERBUND EPYX Finders Keepers (0) $7 Factoty(D) si6 m: Cas 
Leader Board Golt(0)$25  BankSt Filer(0). $33 Barbie (0) Infinity Machine(F) $18 Grogs Revenge(D)_.S16 of the Manda 
Leader Board BankSt Mailer(0) $32 Breakdance (0) Rikstart () ST Mickey's Spac Murder (0) s2t 
Tournament Disk $14 Bank St Writer(O) . $33 Fast Loa R) SASideSoccer(D). $7 Adventure(D) $16 TIMEWORKS 
Mach (R) $23 Bank St Spelles(0). $33 Impossible Mission(D) $9 Last V-B iO) $7 Stunt Fiyer(D) $16 Accts. Payable (D)._ $39 
Mach 128 (A) $33 Karateka(D) $19 Koronis Rift(0) $23 Paul McCartney's Winnie the Pooh (0) .$16 Accts, Receivable (0) $38 
Raid Over Moscow (0) $24 Music Shop(0)....$29 MovieMMonster(D)...$25 BroadStreett0). $7 Wie Typeih $16 Data Manager 2(0) $33 
ACTIVISION Print Shop (0) $26 Multiplan 640r 128 $39 rhe Slugger (0) $7 SIMON & SCHUSTER Manager 128, $43 
Alter Ego (Male P.S, Companion (0), $23 Summer Games 2(0) $25 Vegas Jackpot (0). $7 Groat International onic 
or Femalo) $33. P'S. Graphics Library Tomplo of Apshat MIGROLEAGUE Paper Airplane Chockbook (0). $16 
Borrowed Time (0) $19 HI.N,or #3. S1BEa, Trilogy (0) $25. Baseball (D) $25 ‘onstruction Set(O) $19 Evelyn Wood 
Comp Fireworks caRoco The Eidolon (0). '$23 General Manager|O).$25 Star TrekThe Kobayash. Dynamic Reader(D) $33 
Celebration Kit(O) $23. Calc Now 0) $14 Vorpal Utility KiX(O) $23 1985 Team Data Disk $14 _Alternativa(D) .. $25 General Ledger(D) $39 
Garry Kitchen’s File Now (D) $14 WinterGames(D) .. $25 MICROPROSE Typing Tutor3() $25 Inventory Mgmt(D) $39 
Gamemaker(D) $25 FreezeFrame(R). $33 World Championship A $23. SPINNAKER Monen Manenerion sie 
Great American Graph Now(D)... $14 Karate(O) 319 $25 Adventuie Creator(R).$8 Partner 128 $39 
Cross-Country G.wiz Printer Int $47 World's Greatest F-15Sirike Eagle (0) $23 AlphabetZo0(R)-$9_Payrall Mgmt.(D) $39 
Road Race(D) $19 Hidden Assets(R). $49 Baseball-improved $23. Gunshipi0) $23 All inColor Cave(R) ..$9  Salos Analysis 
Hacker(D) $19 Mail Now (0) $14 World's Greatest Kennody Approach(O).$23. Bubble Busters (R) $9 Mamt(D} $39 
Little Computor Simoro (R} $44 Football(O) 323 Silent Service (0), $23 Cosmic Combali). $8 sideways 64.0r 128 $33 
People (0) $23. SuperG Pr. Int sag FIREBIRD MINDSCAPE Delta Drawing (R) $8 SwiftcalciSideways(C) $33 
Mindshadow(D) $19 Write Now (A). $19 Adv. Music System iD) $49 Bank St. Mu: Facemaner (H) $9 Swittcalc 
Murder on the ces Colossus Choss 4(D)$23 Writer (0) $19 Fraction Fover(R)..' 89 “Sidaways(128) ,.$43 
Mississippi(D) .. $23 Argos Expedition (0) $9 Elite $19 Bank St Storybook(O) $19 Gold Record Race /A) $8 syivia Porter's Personal 
SpaceShuttie(0) $19 Big Bird's Funhouso(Ry.s9 Music System(D) ..$25 Bop & Wrostle(0) ...$19 Homowork Helpermatn  Yetvcrters Personal 
ACCOLADE Big Bird Spc. Del (A) $9 The Pawn (0) Call Color Me: The Computer Word Problems (D) $23 sylvia Porters 
Aces of Aces(0)....$19  BodyinFocus(0)...$23 FIRSTSTAR Coloring kit(D} $19 Homework Helper. Parsonel Financial 
Dambusters(D) $18 DreamHouse (0). $9 SPY VS. Spy2(D) $19 Groat British Writing (0) $23. Planner 128 $43 
Fight Night (D) $19 Emie's BigSplash(0) sg FISHER PRICE Software (D)-—....$12 Invaders Lost TomtD) $19 Word Writer 
Hard Bail (0) 519 Emie's Magic, Alpha Build (R) $9 Halley Project(D) $19 Kids on Keys (A $9 Spoller(O $33 
LawottheWest(D). $19 Shapes (R) s9 Dance Fantasy(R).. $9 indianaJones(D) $19 Kung Fu 1— Word Water wi85000 
PSI Trading Co.(D) $19 Grover's Animal Hop Along lnnitrator (0) $19 Exploding Fist(D) $19 Word Spotinr (128), $43 
AMERICAN. Adventures(D) $9 Counting (R) $9 LuscherProfile(D) $19 Kung Fu2. TRONIX 
EDUCATIONAL Mastering the SAT(O) $44 Linking Logic (A) $9 Perfect Score SAT(O)$44__ ‘Sticks of Death (D) $19 SCA Noy $39 
Biology (0) $14 Math Mileage(D),. $9 Memory Manor(R) $9. Spollot Destruction) $19 SPRINGBOARD UNISON WORLD 
French(D) $14 Movie Musical Number Tumbler(R). $9. MIRAGE EarlyGamos(D) $21 AntGallery 110), $16 
Grammar (0) 514 Madness (0) 39 SeaSpeller(R) $9 Database w/Report Easy as ABC(D) . $23 Print Mastor(O).....$23 
Science: Grades 4V4(0) $14 Railroad Works (0) $9 GAMESTAR Generator(D). $33 Fraction Factory (0) $19 WEEKLY READER 
Science: Grades 5/6(0) $14 Rich Scarry’s Electronic Champ Basketball(D).$19 Professional Word Newsroom (0) $33 Stickybear ABC'S (D) $19 
Science: Grades 7/@(0) $14 _ Word Book(D)...$12 On-CourtTennis(D) ‘$19 Processor (O).....833 NA ClipArt Vol. 1(0)819  stictybenr Meee Sie 
Spanish (D) $14 Sosame St, Pals On-Field Football (0) $19 MISC NR Clip Art Vol 2(0)$25 Stickybear Numbersi0)$19 
US.Geography (0) $14 Around Town(0)...$9_Star-League Bob's Term 128. $49 Stickers (0) $23 Stickybear Reading (0) $19 
World Geography (0) $14 Success wiAigetra Call _ Baseball (D) $19 CSM 1541 SSI Slickybeat Stapactoh ato 
World History(0) $14 Success w/Math,.. Call Star Rank Boxing (D).$19 Align Kit (0) $29 BattleGroup(0) $37 ACCESSORIES 
ARTWORK Timebound (0) $9 HAYDEN Central Point v of Antitam(D) $33 ‘Anchor 6470 300/1200 
Beach Blanket Weather Tamers(0) $9 Sargon 3(D) 333 G $23 on ‘Modem wiSoftwares149 
Volleyball(0).. $12.“ DATA EAST HES G $19 ommander(0) $25 Bonus 85,0) $699 Bx 
Bridge 4.0 (0) $16 KarateChamp (0) ..$29.Millionaire(D) $16 Call ional Conquest (0) $25 Gonus OS, DD... $7.99 Bx 
Cycle Night(0) . $12 Kung FuMastor(o), $23 Omniwnter wiSpell(O) $23 Suporbase 64D). .$47 Computer Ambush (0)$37_ Commuserve Siartes 
Equestrian Show DATASOFT Project Space Superbase 128(D),. $59 GomputerQB(0D)....25 “Kit s19 
‘Jumper (D) $12 Alternate Reality(0).$25 Station (D) $16 Superscript64(0) $47 Field of Fire(D) ,... $25 _patashare Printer int 
Hole in One + Sixi0)$14 The Goonies(D) -. $19  HLTECH EXPRESSIONS Superscript 128.. $47 Gemstone Warrior (0)823,“wicragnestapln saa 
Int'l Hockey (0).,..$16 Never Ending Story(O) $19 Card Wara (D) $9 Vizastar64XL8(D) $79 Germany 1985(0) --.$37 pick Caso olde 60) So 
Strip Porer(D) $21 Zorro(D) 319 Heart Ware (0) 59 vizastar 1280)... Gail Gottysburg (O) $37 Disk Drive Cleaner... $9 
Data Disk #1 female $16 DAVIDSON Party Ware (0) $14 Vizawrite 128(0). Call Kamptgruppe (0). $37 Disk Notcner s7 
DataDisk #2male. $16 Math Blaster(0) _...$33 INFOCOM ORIGIN Mech Brigade() .. $37 Dow Jones News 
DataDisk#3 female $16 Speed Reader2(0) $43 BallyhooiD) $25 Ultima (0) $34 NAM(D) $25 Retrieval Kit (Shs) $14 
ARTWOAX PX Spell It (0) $33 Cut Throats (OD)... $23_ Ultima (D) $39 Norway 1985(0) | .$23Kratt Joystick $9 
Baker St Detective(0)$7 Word Attack (0). $33. Deadline (D) 329 PROFESSIONAL Phantasio(O) $25 Panasonic 1080 100 
Hole InOneGolt(0) $7 DIGITAL SOLUTIONS Enchanter (D) $23. SOFTWARE Phantasie2(0) . $25 ‘cps dot matti 
Hotel Alien (0) $7 Paperback Writer64 Call Hitchhiker's Guide to Fleet System 2—WP. Questron 0) 525 Great Deal 
Jumpin’ Jimmy (D) $7 Paperback Writer 128 Call the Galaxy(O) ....$23w/70,000 word spellings of Zilin(D) ...828 gapt@ly. ca Gt 
Pro Boxing (D) $7 ELECTRONIC ARTS Infidel (0) checker 64 0r 128 $39 US.A.A,F.(D) $37“ Composite Monitor 
AVALON HILL Adv. Const. Set (D) Invisiclues Fleet System 3 (128) $49 Wings of War(D)...$25 for Got 
Gulf Strike (0) $19 Archon 2: Adept (0) Planettall (0) RANDOM HOUSE Wizard's Cro wn (0) . $25 
Jupiter Mission 1999(0)$23 Bard's Tale (D) Sorcerer (D) Alpine Encounter(0) $14 SOFTSYNC monitor for C128 Call 
ParthianKings(0),..$16 Carriers at War (0) Spelibreaker (0) Charlie Brown's Dosk Manager Total Auto Answer! 
Ripper (0) 316 Chessmaster 2000(D) Suspect (D) ABC's (0) $14 64.07 128(D) $25 “Auto Dial Modom 
Super Bow! Europe Ablaze (0) Trinity 128 Snoopy's Reading Trio 128(0) $43 wiSottware ...$24.68 
Sunday (0) $21 Heart of Atrica (D) Wishbringer () Machine (0) $14 SuBLoGic Universal Printer Stanas16. 
SBS 1984 Team Disk $14 Lords of Conquest (0) _—_-Wwitness(0) Typing Is A Ball Flight Simulator 2(0).832  Wico Bat Handle. $17 
SBS Champs Disk. $14 Mail Order Monstors (0) Zork 1(0) Charlie Brown(D) $14 F.S, Scenery Disks. .Call_ Wico Boss $12 
Spitfire '40(0) $23. Movie Maker (0) Zork 2013 (0) SCARBOROUGH Football (0) $29. Verbatim Bulk 514 
Title Bout (0) $19 Music Const. Set (D) KOALA Boston Computer Jet (0) $29 "'SS.00 359/100 
Tournament Goll(O).$19__ One-on-One (0) Muppet Learning Diet (O) $33 


P.O. BOX 111327—DEPT. CG BLAWNOX, PA 15238 


subject to change without notice, Modem Owners: Type Go SDA on Compuserve's Electronic Mall to see our On-Line Catalog of over 800 software titles for Atari, Commodore 
iple, & IBM. Summer Hours Mon.-Fri, 9 A.M.5:30 P.M. EDT * Sat. 10 A.M.5 P.M, EDT 


YOU CAN DOA LOT MORE WITH MUSIC THAN YOU'RE DOING NOW! 
— Did you play an instrument in school? 

— Nomatter what your musical backgroundis, these new 

computer music products will bring out your talents! 


@ SYNTHESIZERS AND DRUM MACHINES 


@ COMPUTER SOFTWARE AND HARDWARE 


a 


@ SEQUENCERS, PROGRAMMERS | 
@ HOME RECORDING EQUIPMENT e 


USE YOUR COMMODORE 64! 
$34.95 MUSIC SHOP SOFTWARE 
music by pointing and clicking 


ystick 4 stats at once, Playback 
fampo or key Print your score! 


Music SHOP WITH MIDI 
better yet! Your computer con 
‘any MIDI synthesizer! Perfect 
01, with 4 citferent sounds at 
1 You can write with the keyDoard! 
$99.95 MIDI INTERFACE FOR C64 
SAVE S30. Required to use MIDI software and MDI 
synthesizers with Commodore 64/128. 
$89. 95 EDITOR/LIBRARIAN FOR CZ104 
0 Great for making your own CZ sounds! 
$64.95 SYNTECH MIDI STUDIO (SEQ) 


SAVESI5 Best low cost MIDI sequencer 


40-DAY SATISFACTION GUARANTEED 


WE HAVE MANY MORE PRODUCTS 
AVAILABLE. IF YOU DON'T SEE WHAT 
YOU WANT HERE, CALL US! 


betes 


NEW! AMIGA AND ATARI ST! 
CALL FOR LATEST MUSIC PRODUCT INFORMATION. 


APPLE II SERIES List 
Passport interlace $149 
lIC Interface... 299 
Passport Midi 4+ (Seq), 129 
Passport Leadshester(Not) 149 
Yamaha DX Editors 
Casio C2101 Editors 
Textures Sequencer 
Educational Software 

MACINTOSH 
Delure Music Const Set 
Mark of the Unicorn (Seq) 
Mark of the Unicorn (Not) 
MAC Interfaces 
MAC Synth Editors 

IBM MUSIC SOFTWARE 

KEYBOARD, SYNTH., ETC. 

CZ SERIES 64 VOICE CART. 

4 TRACK RECORDERS 

DRUM MACHINES 


FUTURE 
MUSIC 


STARTYOUR COMPUTER MUSIC SYSTEM TODAY 

SAVE 

$299 CASIO C2104 S200 

PROFESSIONAL SYNTHESIZER SOUND, UPTO 4 UNIQUE 

SOUNDS ATONCE, MIDI, PROGRAMMABLE, PORTABLE, 
EASY TO USE — THE STANDARD — 


FREE AC ADAPTER & SHIPPING 


BOOKS ON MIDI, MIDI PRODUCTS 
© Understanding Midi - 82 Pages 
w/Product Guide 
@ HowtoUnderstand& Program theDX7.. 24.95 
@ Synthesizer Technique 895 
Send cost plus $1.50 postage and handling to 


3.95 


Cc 
ATARI 800/130XEMIDISYSTEM _ CAI 


Ihe address below or call toll free to order, 


FUTURE MUSIC IS THE ONLY MUSIC STORE 
DEVOTED TO COMPUTER ENTHUSIASTS & 
HOME MUSICIANS. 


MASTERCARD AND ViSA ACCEPTED 
CALL 24 HRS. TOLL FREE! 


1-800-FOR-MIDI 


FUTURE MUSIC, 1465 Terminal Way. Mail Orders and Correspondence to: Box 1090, Reno, NV 69504. Nevada Call 702-826-MIDI, Cust. Service 702-359-MIDI; 9-6 POT 


DISKS 50¢ ¢- PRINTERS « 


@ LIFETIME WARRANTY 
TYVEK SLEEVES ¢ LABELS 
WRITE PROTECTS *¢ PACKAGED 


FACTORY NEW — 1st QUALITY 


999 1000+ 


cenenc SSIDD 60.55.50 
BASF DSIDD 1.00.95 90 


4 Verbatim. 


100-999 1000+ 


SSIDD 1.00 95 .90 
DSIDD 1.50 1.40 1.30 


LOW PRICE 


CALL! 


a 
MicroComputer Services 


800-433-7756 


In Michigen [313] 427-0251 
INFO & CUSTOMER SERVICE — (313) 685-7766 
HOURS: MON - SAT 10:00 A.M, - 6:00 P.M. 
15076 Middebelt, Livonia, MI 48154 


Canon PJ]O80A 


COLOR INK JET 


Stq@ie) GEMINI 10X 


$149°° Sea 


ay 
Friction TRACTOR | 


<—<——$—$———_—< 
staim|NDX-10) 

95 
$239) — 


N.L.Q, * SHEET FEEDER 
REAR TRACTOR/FRICTION = 


Sk BUFFER 
SEIKOSHA SP-1000 


COMMODORE READY 


$179° ee 
NeARLerteR auauiTy & ° 
FRICTION & TRACTOR Mg 
100 CPS» 1.5K BUFFER i 


COMMODORE READY 


$249 Qs 


$7925 FROM EPSON. 
50 CPS * TRACTOR FEED 


(commodore 


EDUCATOR 


We Bought 
‘em All 
FAR BELOW 
DEALER COST 


RETAIL 
499.95 


REGULAR 
DEALER 
cost 
325,00 


+ 100% C-64 Compatible 

* Built in Hi-Res Green Monitor 

* Heavy duty power supply and 
sturdy case 

* All units completely refurbished 
with full 90 day warranty 


$199.95 


SPECIAL QUANTITY DISCOUNTS 


MC/VISA/C.0.D. 
lor Inquiries Invited 
All prices discounted for cash or check, add 3% 
for MC/VISA. Shipping: Printers $10.00, 
ks $4.00 per 100, (West 


MANUFACTURERS WARRANTY. 


PUBLIC NOTICE 


We are an authorized liquidator of consumer 
products that must be quickly sold at drastic 
price reductions for many reasons, such as: 
Discontinued lines. Last year's models. 
Distributor's surplus. Cancelled orders. Bank- 
tuptcy. Factory overproducton. Out-ol-season 
products, Tailends of inventories. 

Whatever the reason for the liquidation you are 
assured of fine quality at money-saving low 
prices! Supplies are limited. Order now! 


Authorized Liquidator 


COMMODORE COMPATIBLE HARDWARE 


Discontinued 
Model 

Sorry, we are 
not permitted to 
print the famous 
brand name. 
But we can tell 
you if you call 
us Toll-Free. 


COMREX™ by EPSON 


13” COLOR MONITOR 


Compatible with 
Commodore 64K™ 
and Apple II® Series 


© Liquidation of a discontinued 
model. 
© Can be used with your VCR 


DISK DRIVE 


© Superior color picture quality. 

© Manual controls for tint, color, 
contrast, horizontal, center and 
vertical hold, 


Limited Factory Warranty: 
2 Years on Parts and Labor; 
3 Years on Picture Tube 


Are you still wasting time using 
just ONE drive? Buy a SECOND 
drive to make quick back-up 
copies...and to use double-drive 


These are factory 
reconditioned units, 
warranted by the 
U.S. manufacturer! 


software with ease. 


© Commodore compatible (C64, 
X64), 

© 2 RAM, 16K ROM, Maximum 
storage of 170K formatted data, 
35 tracks, 

@ Uses 5%” floppy diskettes. 

© Serial interlace 


Famous Brand LETTER QUALITY PRINTER 


© Commodore compatible (C64, SX64, Plus/4, 
C15, VIC20), 

© Add to your present equipment for office 
quality appearance of letters, reports. 

© Prints 18 cps, Bi-directional printing. 

© Triumph-Adler compatible printwheel. 
Upper/lower case letters, numerals, symbols 

© Spacing: 10, 13, 15 cpi. or proportional select- 
able. 48 lines per inch maximum. 

© 13" max. paper width (11” printable width), 


Original List:5395.00 $188 
Liquidation Price . .. Factory Reconditioned 


Item H-1381-4184-016 Shipping, handling:$11.50 With Factory Warranty. 


© Power indicator light, video and 
sound input terminals, 

© 270 line resolution. 

© 40 character (8 x 8) x 24 line 
display. 

© Size: 14" H x 13%" Wx 15%" D. 

© Does not include connection 
cable. (Contact local stores.) 


COMMODORE 
TRACTOR FEED 


Liquidation is due to discontinued 
model. Now use continuous paper 
AND single sheets in your Commo- 
dore 803. Quickly snap in this tractor 
feed unit. When installed, you can 
still use your friction feed, too! 


90-Day Limited Factory Warranty. 
Mfr. List:$39,95 $19 
Liquidation Price . . 
Item H-1381-7004-286 
Shipping, handling: $4.00 


Mir. List Price 5249.00 


5149 


Item H-1381-7003-809 
Shipping, handling: $12.00 


Original 
List Price ... $269.00 
Liquidation $ 149 
Price ... 
Item H-1381-3553-013 
Shipping, handling: $8.00 


Liquidation 
Price 


. Nom H-1381 SEND ME THE ITEMS | HAVE LISTED BELOW 
14605 28th Ave. N./ Minneapolis, MN 55441-3397 ‘Sales outside the 48 cont subject to 


Send itoms shown at right. (Minnesota residents add 6% ial conditions. Please call or write to inquir 
sales tax. Sorry, no C.0.0, of 


Omy check ea money ie ons se 
charge C1 VISA® C2 MasterCara 
‘ect No, 
PLEASE PRINT CLEARLY 
Name 
Aédress 
ty 
© 2p 
oa 


et} —— 


Costco caaloes ca onde Wiper 

hows 9c), 

Honea weak! ee ( 
Bato 


Toll-Free: 1-800-328-0609 


Your check is welcome! 
No delays in orders paid by check. 

Sales outside the 48 contiguous states are subject to 

special conditions. Please call or write lo inquire. 


ed. (No delays in item No 
to TeleCheck) 


» Cl American Expres 


Exp_—_L_ 


jiract Marketing Corp. 


Authorized Liquidator 
14605 28th Avenue North 
Minneapolis, Minnesota 65441-3397 


THE ULTIMATE CONTROL INTERFACE 


Compatible with C64, 
C128 in 64 & 128 modes, 
and C128 in CPIM mode 
Universally applicable dual 6522 Versatile Interface Adapter VIA) 
board, Intelligently control almost any device. Perform automated 
testing. Acquire data for laboratory and instrumentation 
applications. Provides four 8-bit fully bidirectional /O ports & eight 
handshake lines, Four 16-bit timer/counters. Full IRQ interrupt 
capability. Expandable. Includes extensive documentation and 
programs on disk. $169 postpaid USA. Each additional board $149. 


SYMBOL MASTER MULTI-PASS 
SYMBOLIC DISASSEMBLER 


The original and best is now even better with Version 2.0! 
Disassembles any 6502/6510/undoc!65C02/8502 machine code 
program into beautiful source. Includes both C64 & C128 native 
mode versions. Learn to program like the experts! Adapt existing 
programs to your needs! Outputs source code files to disk fully 
compatible with your MAE, PAL, CBM, Develop-64, LADS, Merlin or 
Panther assembler, ready for re-assembly and editing. 100% 
machine code and extremely fast. 63-page manual. Advanced and 
sophisticated features far too numerous to detail here. $49.95 
postpaid USA. 


PROFESSIONAL UTILITIES & RESOURCES 


+ C64 Source Code. Most complete available reconstructed, 
extensively commented and cross-referenced assembly language 
source code for Basic and Kernal ROMS, all 16K. In book form, 242 
pages. $29.95 postpaid USA. 

+ PTD-6510 Symbolic Debugger for C64, An extremely powerful tool 
with capabilities far beyond a machine-language monitor. 100-page 
manual. $49.95 postpaid USA. 

+ MAE64 version 5.0. Fully professional 6502/65C02 macro 
editorlassembler. 80-page manual. $29.95 postpaid USA. 


SCHNEDLER SYSTEMS 
1601 N. lvanhoo, Dept. G8, Arlington, VA 22205 
Information/Telephone Orders (703) 237-4796. VISA/ MasterCard 


COMPUTENs Gazette 
Subscriber Services 


Please help us serve you better. If you need to contact 
us for any of the reasons listed below, write to us at: 

COMPUTE"'s Gazette 

P.O, Box 10957 

Des Moines, IA 50340. 
or call the Toll Free number listed below. 
Change of Address, Please allow us 6-8 weeks to effect 
the change; send your current mailing label along with 
your new address. 
Renewal. Should you wish to renew your Gazette 
subscription before we remind you to, send your current 
mailing label with payment or charge number or call the 
Toll Free number listed below. 
New Subscription. A one-year (12-month) U.S. subscrip- 
tion to COMPUTE!’s Gazette is $24 (2 years, $45; 3 years, 
$65. For subscription rates outside the U.S., see staff 
page). Send us your name and address or call the Toll 
Free number listed below. 
Delivery Problems. If you receive duplicate issues of 
COMPUTE!’s Gazette, if you experience late delivery, or 
if you have problems with your subscription, please call 
the Toll Free number listed below. 


COMPUTE!’s Gazette 


1-800-247-5470 
In IA 1-800-532-1272 


Gree Spirit Software, Ine. 


Music of the Masters - $9.95 

One full hour of classical music on disk for 
the CB4 or C128 in64 mode. Screen commentary 
on the various composers, Mozart, Handel, 
Beethoven & many more! 


Music of the Mi Volume Il - $9.95 
More classical music from the world's greatest 
composers. Waltzes, minuets, sonatinas 
and other compositions by Chopin, Schubert, 
Brahms, Mozart & many more! Includes a 
special study on the Bach family. For C64 or 
C128 in 64 mode. 


SPECIAL OFFER! Order both volumes of 
Music of the Masters for only $16.95! 


BASICally SIMPLE 64 - $14.95 
How to use all C64 Basic 2.0 commands and 
operators in Basic programs. Everything 
explained in clear, concise terms. After you 
become an expert programmer, this disk 
makes a handy reference guide. 


BASICally SIMPLE 128 - $19.95 
How to use all C128 Basic 7,0 commands 
and operators in Basic programs. Instruction 
in graphic, sound and music commands 
included. Hundreds of easy to follow examples: 
provided on this 128 mode disk. 


TECHNIQUE! - $19.95 
Easy, direct instruction in programming graphics, 
animation, sound and music on the C64, 
Disk includes machine language music pro- 
gram, several tunes and an example game. 
Free shipping & handling for U.S. orders! 
Illinois residents add 7% sales tax. Send 
check or money order to: 

Free Spirit Software, Inc. 

5836 S. Mozart 

Chicago, Illinois 60629 
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CONVERSE WITH 
YOUR COMPUTER 


"AT LAST! A FULL IMPLEMENTATION of the original ELIZA pro- 
{grams now available to run on your Commodore64) 

Crested at MIT in 1986, ELIZA nas become the world's most 
Celebrated artificial intelligence demonstration program, ELIZAisa 
hhon-diractive psychotherapist who analyzes each statement as 
Jou type it In and then responds with her own comment or 
{Guostlon—and her remarks are ofan amazingly appropriate 
Designed 10 run on a large maintramo, ELIZA has never before 
been available to personal computer users except in greatly 
striped down versions lacking the sophistication which made the 
‘original program so fascinating, 

Now, our new Commodore 64 version possessing the FULL power 
and range of expression of the original is being otfered at the 
introductory price of only $25. And if you want fofind out how she 
oes it (ar teach her to do more) we will include the complete 
SOURCE PROGRAM for only $20 additional 

Order your copy ofELIZA today and you'll never again wonder how 
fo respond when you hear someone say, "Okay, la's see what tis, 
‘computer of yours can actually do" 


EAD WHAT THE EXPERTS SAY ABOUT OUR VERSION OF ELIZA: 
“Much more than a mero game,..You'll be Improssed with 
ELIZA. -Acontinclng demonstration of Artifical intelligence: 
PC MAGAZINE 
‘Delightful entertainment...An ideal medium for showing off your 
sysiom:  MICROCOMPUTING MAGAZINE 
'ELIZA\s an astounding piece of sofware... A fascinating program 
toute and study" BARON'S MICROCOMPUTER REPORTS: 
‘EUZA is a gteat way to introduce your friends to computers...A 
very funny party game.” PETER A McWILLIAMS. 
"ELIZA is an excegtional program, cne that's funto use, shows off 
your machine, andhas greathistoical interest” 
“POPULAR COMPUTING MAGAZINE 
“This version of ELIZA the best we have seen. As a party game. it 
Isunmatched” — —HOME APPLICATIONS FOR THE C-64 
ELIZAS AVAILABLE IN THE FOLLOWING FORMATS: 
(Please specity Disk or Cassette) 
1, Prol@ctOd VOrtlon soessrsseseesrncvsesesseens 
(Protected Version can be runituinot sted or modiiveg) 
2, Un-protocted Commodore 64 EASIC Source Version ...... $45 
(Source Versioncan be listed and modified aswell as run) 
‘Both versions include a six page user manual. 
Please add $2.00 shippingand handling oall orders 
(Caltorna residents please add 64% sales tax) 
ARTIFICIAL INTELLIGENCE RESEARCH GROUP 
921 North La Jolla Avenue, Dept.G 


‘Los Angeles, CA 90046 
(213) 656-7368, (213) 654-2214 
NG, VISA and checks accepted 


$25 


DISCOVER THE HIDDEN 
POWER OF YOUR COMPU’ 


Monitor and control your home or busines 
‘Control fights. appliances. heating/cooling systems, relay, 
motors and vitually any electrical device 
Connect to temperature. light. sound, moistere, Maid level. 
pressure and vibration sensors ~ pls many mere. 

Use as an advanced security ster 

Perform automated testing and experimentat 

Use as a sophisticated laboratory data acqalstion system, 
Use for eductional purposes 


Provides 8 memory mapped ports: 
4 Allows access to each port via one statement in BASIC 
Novimterface ould be easir to ue 
4 bbie butered ouput ports 2 separate output 
4 bit kept ports (2 separate input fines 
X comenien pin DIP socket interface cone 
1 channel A/D plug-in conversion module with 100 mlcro- 
second sampling time: 825. 
channel A/D plug-in conversion madule with 100 miere 
second sampling ime: $50 
SBLTOO User Manual includes instruction, sample programs 
and lagramof typical hookups 
The BH100 is a very powerful and versatile 
erface. Do not let the price fool you. 


ONLY *129! 
Specity ©-64, VIC-206r Apple 24/20 


Inetigent VO. Ine 
MO Lawrence Ave, Bax 70 
Potsdam, NY 13676 


LEROY’S CHEATSHEET* 


KEYBOARD OVERLAYS 


Tiattat tacts 
at ok A tl 
EPeEEITLLELEL EL 


Herter J COMMODORE 64 


z CUT-OUT-YOURSELF ON DOTTED LINES 
BASIC MANAGER 


COMMODORE 128 BLANKS (set o3) OMNIWAITER 
5 CALC RESULT ADVANCED PAPERCLIP 
DIE-CUT CALC RESULT ERSY PILOT 
Oeasic 7.0 COFOR THE BEGINNER COMAL PRACTICALC 
CIBLANKS (yofTachnitea) CMuLTIPLAN CONSULTANT PRACTICALC 64 


Qpisk 1571 O paper CLIP 128 meee FOr He eee 
OC EAsy script C SUPERBASE 128 EASY CALC WES WRITER 


CI FLEET SYSTEM243 OC worppro 126 EASY SCRIPT MULTIPLAN 


FLEET SYSTEM 2 SCRIPT 64 
FREE Keyboard Extender With C-128 Order FLIGHT SIMULATOR IT SIMONS' BASIC. 


LOGO sheet 1 SKY TRAVEL 
V SAVES TIME - ENDS FRUSTRATION (ee 


‘SMART 64 TERMINAL 
SPEEDSCRIPT. 
SPRITES ONLY 
SUPERBASE 64 
TERM 64 

viOTEX 

VIP TERMINAL 
VIZASTAR 

WAITE NOW! /64 
801/803 PRINTER 
1526/802 PRINTER 
EPSON AX/FX 80 
GEMINI 10%, 15 
OKIDATA 92/93 


Ooo0c00000000000 


GET TO KNOW YOUR SOFTWARE BETTER LERDY'S CHEATSHEETS are durable plastic laminated keyboard overlays designed for use 
with popular software, hardware, and languages for the Commodore 64 and 128. 
FITS OVER KEYBOARD When laid on your keyboard, LEROY'S CHEATSHEETS Surround the keys with essential 
information, placing your most valuable computing tool at your fingertips, 
COMMANDS AT YOUR FINGERTIPS 
We take time to learn and use each program before designing a Cheatsheet. For quick 
LEARN NEW SOFTWARE FASTER, BASIER _ reference, commands are grouped according to function. The actual keystrokes are in 
bold type and variables are shown in/talics. ALL the COMMANDS are included, and many 
STURDY PLASTIC LAMINATE extra shortcuts are added. 


UNBEATABLE PRICE! Now you can use your software faster, more easily and more effectively. 
With LEROY'S CHEATSHEETS You'll never have to hunt for a program command again, 


SOFTWARE I! ; / THE PROBLEM SOLVER 


NOW buy your SOFTWARE from LEROY at 20% OFFlistprice| <a < EQUIPMENT STAND 


(hundreds of titles avaitable) 
By LEROY 
SPECIAL OFFER 


Buy any software package (minimum $25.00 order) and get 
a FREE LEAOY'S CHEATSHEET ‘Of your choice! 


SPECIALLY DESIGNED FOR COMMODORE COMPUTERS 


VINYL COATED - 1/4” DIAMETER | ORGANIZE YOUR SYSTEM 
WELDED STEEL CONSTRUCTION KEEPS EQUIPMENT COOLER 
18" WIDE 4" HIGH 11” DEEP PERFECT FOR PRINTERS 
PUTS YOUR CRT AT EYE LEVEL CO EQUIPMENT STAND 


SHIPPING OVERLAYS $1.00 ahipping per order US. & Canada SUBTOTAL SHIPPING 
‘ANO TERMS: $3.00 for forvign orders 
STANDS $3,00 shipping G%TAX Pa. RESIDENTS: 
$5.00 Canada, Hay 
US. funds NO COD. TOTAL OF ORDER 


MC/VISA # EXPIRES. 


CPi cuearsHeer propucts Inc Wiaiae 
P.O. Bi 111368 
PITTSBURGH, Pa, 16238 =) ADDRESS. 


(412) 781-1651 x CITY. 


Commodore Compatible 


and only. . . $139.00 


= 


FSD-1 5%4”Disk Drive 
Directly replaces the Commodore 1541 disk drive. 


‘The FSD-1 Disk Drive is a versatile and officient disk drive built for the Com- 
modore series of personal computers. This disk drive is fully compatible 
with the Commodore 64 computer and directly replaces the Commodore 
1841 Disk Drive, giving much better performance in terms of data loading 
and writing speed and memory buffer size. 


To Order call toll free 
1-800-356-5178 
Visa and MasterCard aro woleomo. Allow 


$800 shipping and handling, Or mail your 
Corder with check or money order to; 


Special Features 
Full 6 month warranty—your assur- 
ance of quality 
Slim line construction—to fit in those 
smaller placos 
Vented metal chassis—to run cool and 
clficient always 
‘Dual serial port with chaining option for 
expandablity 
5¥4" industry standard format 
Positive lover lock—to oliminate the 
"pop cut” problem 
Built especially for C-64 users 


Emerald Component international 
541 Willamette Street 
Eugene, OR 97401 


Remember, no sales tax in Oregon, Tel. 503-683-1154 


for the Commodore 128 
DON'T GIVE UP YET! 


virtually all 64/128 
Software with 


NEW 1571 Clone’ 


Months of R&D have gone into the 
IGCR CLONF MACHINE™ for 1571. 
Now you have the ability to 
reproduce GCR signals to back up 
all software for the 
including CPM (double 
sided too!), Included are: 
1) Full Density Utility 2 GCR Copy 
3) Directory Utilities 4) Auto Boot 
Maker (64&128 Modes) s) Expansion 
module section (for future updates). 
LL THIS for only $49.95 
—— PRINTER INTERFACE —— 
The MW-350 interface has been 
revised to fully support the 126 
including complete CPM emulation 
total graphics, correct aspect 
ratios, print buffer, etc. Insist 
on compatability for only $79.00 
MIDI APPLICATIONS 
Synthesizers, Interfaces, Music 
Disks, Sequencer Software, Ltc 


CALL- 201 - 838-9027 
or write us at 

it 
Micra-W. 
DISTRIBUTING. INC 


Route 23 Butler, NJ 07405 


ES ofits Ss 


LETTS CIPHER. 


“Windew Hagic 


SUPER MLARESOL UTION DRAWING 18 MULTLOK MONO 


STOCK BROKER. 


PROFITS GUARANTEED O 
SOUR MONEY HACK, 


tikes ABANDON SHIP. 


une ANCADE BTYLE GAME THAT REQUIRES STRATEGY AND 0YBTICK 
Sus trene ane sz nooua Tes BACK THE DROOL ENaNE 


ACORN OF INDIANA, INC. SES 
2721 ONO STREET 
Mitigate cHTY. 1m 46360 


219-879-2284 
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Classified 


SOFTWARE 


FREE SOFTWARE for C64, C128, IBM, & CPM 
send SASE for info (specify computer) to: 
PUBLIC DOMAIN USERS GROUP, 

PO Box 1442-A2, Orange Park, FL 32067 


COMMODORE: TRY BEFORE YOU BUY, Top 25 
best-selling games, utilities, new releases, Visa, 
MasterCard. Free brochure, Rent-A-Disk, 908 9th 
Ave,, Huntington, WV 25701 (304) 522-1665 


FREE MEMBERSHIP IN SOFTWARE CLUB. 
Top British C64 programs, Catalog and reviews 
(no strings). ARROW EXPRESS, Box 205-G8, 
Rossland, BC VOG 10 


Play INSANE WE TRUST! The West Coast 
favorite for the C-64 on disk, Tricky 
quiz-type gmt, Only $6 to: Tom Balvin, 
2555 Altura Ave., Montrose, CA 91020 


BASEBALL PLAYERS/COACHES, Display, save, 
print your team’s roster & complete statistics (up 
to 20 players/team). C64 & 128. Disk $19.95 
(mbg). Scoreboard Software, Dept. G3, POB 
31566, Phoenix, AZ 85046. (602) 992-4072 


VEGAS-Casino Games for the C64, 
Includes: Blackjack, Slots, Poker, Keno, 
Baccarat, Chuck-a-luck. All for only. 
$14.95. PAR Value Software, PO Box 1818, 
Vicksburg, MS 39180 


ATTENTION COMMODORE GRAPHIC BBS 
USERS! Get the ultimate graphic message maker! 
GRAPHIC MAGIC V3.0! On-screen menus! Easy 
editing! Printouts! FREE ColorDisk sample! Only 
$9,95! PACIFIC DISTRIBUTING, 801 E, Harrison 
St,, Seattle, WA 98102 


ELECTROCALC can do your electronics 
calculations: Resonance, crossover, etc, C64 or 
128 (specify}—$19.95 postpaid, NOVASOFT, Rt 
1, Box 107B, Kinston, NC 28501 


Play HEARTS on C64 against 3 computer-card 
experts, Several game variations, Send $19.95 to 
Barry Miller, 258 Toftrees Ave, #216, 

State College, PA 16803 


PRO FOOTBALL FANS. WEEKLY PREDICTIONS 
with your C64, Team stats analyzed to pick 
winner. With or without point spread. 
Cumulative stats, Menu driven. Disk $21.95. 
Kelkris, 433 Viola, Hubbard, OH 44425 


LOWEST PRICES IN AMERICA, for C64 soft- 
ware, Send $2 for sample disk of over 30 
programs and catalog of 8000+ programs 
FRUGALWARE, 23 E. Green, W. Hazelton, PA 
18201 


DIRECT SALES DISTRIBUTOR'S HELPER - C64 
Does inventory, order forms, reports and more. 
$59.95. Send SASE for free demo kit, RD3 Box 
413, Kunkletown, PA 18058 


MUST games for C64/128 owners! Las Vegas, 

Monopoly 64/128, Songs & Sounds, Brai 
Game. @ $9.95, all four $35.95 ch/m.o. to: DCS, 
2254 Pacifica, L. Beach, CA 90806 (213)595-0899 


BRIDGEBRAIN: Full-featured, user-friendly 
contract bridge for C-64, $30 (T or D) or $1 for 
info to: George H. Bodner, PhD, 1134 Harvard 
Circle, Pittsburgh, PA 15212 


SAVE $ ON INTEREST/MORTGAGES/ALL, 
LOANS, “PREPAYMENT” gives hard facts to 
show ways to cut $ from any loan at any given 
time, Plus utilities. $19.95 + $2 p/h, C64 disk 
WILCAR INC., P.O. Box 8111, Phx, AZ 85066 


PRINTSHOP™ OWNERS 
Four new C-64 Graphics Collection disks 
Scenes, Symbols, Animals, Holidays 

60 graphics per disk—Each disk $ 
Write to VISION-Soft, 320 N. Monte 
Farmington, NM 87401 for more information. 


BASEBALL TRIVIA QUESTIONS for C64/128. 
300 questions from past and present. Disk $16.95 
CH/MO to Triple Play Software, P.O. Box 493, 
Fairfax, VA 22030 


LAS VEGAS/ATLANTIC CITY CASINO ACTION! 
20 superior games. Blackjack, 21, Craps, 

Poker, Slots, C64/128, $12.95: M. ADAMS, 
6547 N. Acad, #446-A1, C, Spgs, CO 80907 


HARDWARE 


NEW FOR C-64 - SPEECH SYNTHESIZER! 
has third generation voice chip, male, female 
voices, sings. Kits/Finished Units! SASE to 
SJ, Box 11205, Clearwater, FL 33516 


ATTENTION COMMODORE 64 MODEM. 
OWNERS: Convert any Commodore 64 modem 
to RS-232 format! Easy to build interface allows 
you to use your modem with IBM, Amiga, 520 
ST, or any computer with an R: 
$10.00 for complete plans to: L 
14810 NE 1 St, #D, Bellevue, WA 98007 


PHOTO AND $5 GETS C64-GENERATED 
“Master” for personalized stationery that will 
knock your socks off! No “canned” graphics.,. 
It's ALL YOU! SASE and $1 for budget “DIY” 
info, Nothing else like it “LET-R-HED”, 
Adjuntas, PR 00601-0971-Z. Best head width 3”, 


COMPUTE!’s Gazette Classified is a low-cost way to tell over 275,000 
microcomputer owners about your product or service. 


ates, 
Torms: Prepayment is required. Check, 
checks payable to COMPUTE! Publ 


‘ard iy accepted, Make 


Form: Aas are subject to publishers approval and must be either type or legibly printed, One line equals 40 


Tetters and spaces between, words, ease underline 
General information: verisrs using pow ot 
telephone numbers. Orders will not be ack 
Closing: 10th of the third month preceding c 
remniiance to: Harry Bla Classified Mana 
place an ad by phone, call Harry Blair at (919) 
Notice: COMPUTE! Publications cannot 
Out misleading or questionable copy 


iumbers in thelr ads must supply perman 
AG wil appear in next availabe 

or date (e 

1, COMPUTES Gazette, P.O, Box 3406, Greensboro, 


rds to be set in bol 


fe issue after 
, June issue closes March 10th), Send ord 


REPAIRS! 
See our full-page ad in this issue! 
TRIAD COMPUTERS 
1-800-624-6794 or 919-299-0391 


MISCELLANEOUS 


DIAL-YOUR-MATCH COMMODORE-128 BBS 
SYSTEM. Easily define 50 questions/3 
matchmaking modes/BBS maintains itself 
AUTOMATICALLY. Full COMMODORE-128 
MODE usage/Any number or type of disk 
drives or hard disk/Use 300 or 1200 baud/40 or 
80 column mode/1670-1660-1650-Hayes 
modem/20 into files, 20 public message 
boards/Remotely access all SYSOP 
commands/Have more than one SYSOP/User 
levels allow restriction so a subscription BBS is 
possible/Text editor built-in/Accurate time & 
date/Chat with, dump, or browse caller easily 
Buitt-in terminal mode with download!/Call a 
BBS & download text/Split-Screen viewing of 
caller's questionnaire/Exchange messages 
automatically between remote BBSs using 
DYM-NET/DYM-NET forwarding avoids toll 
calls/Advanced Technology makes othe BBSs 
obsolete!/Popularity guaranteed!/Make 
hundreds of exciting new friendsl/Written in 
BASIC and UNPROTECTED!/Please ORDER BY 
MODEM 1-818-840-8066 (300 BAUD) or write 
DYM 128, P.0. BOX 6055, BURBANK, CA 91510 


Personal Computer Owners CAN EARN 
$1000 to $5000 monthly, selling simple services 
performed by their computer, Work at home - in 
spare time. Get free list of 100 best services to 
offer. Write: C.LL.D.L,, P.O, Box 60369, San 


PRINTER RIBBONS *Commodore 801/803- 
$8.75. *Com 1525/1526, Legend 800/880, 
Banana, Spirit 80-$7.95 *Epson MX/FX/RX 80- 
$5.25 *Gemini 10/15, Okidata 82,83,92-$2.95 
Min, Order: $10. Add $2 S&H Per Order. 
BOOK KEEPERS, 944-10th, Sidney, NE 69162 


COOLING FANS for C64/128 Disk Drives 
Only $39.95 or $59.95 w/surge protection 
(See ad, June GAZETTE, p, 120) 414-277-9120, 
Aier Products, 522 W. Bergen, Milw., WI 53217 


BBS CONSTRUCTION KIT - Create your own 
customized BBS! $51.50. For more info call 

or write: Powersystems, P.O. Box 822, 
Coventry, RI 02816 * BBS 401-822-4605 


REPAIR: C64 (including p/s)-$45. 1541 
(including clean, lube, align)-§50, BUY/SELL: 
Commodore parts or whole units. CONTACT: 
Dave Taylor (915) 683-8398 or Jerry Dees (915) 
561-8483. 5106 Daventree St., Midland, TX 
79705 (parts and labor warranted 30 days) 


USE BOTH SIDES OF DISK WITHOUT CUTTING 
notches. Ideal write protection, Easy no solder 
kit. Send $7.95 + .50 p/h to: TDE, Box 1482, 
Windsor, CA 95492-1482 


“THE ULTIMATE 64 DISK MEI 
Autoload/run Basic-ML prgs, INSTANTLY 
restore menu - even during another prog. 
Remarked Basic & ML on disk w/docs, Send $12 
to: Colony SW, POB 4712, Huntsville, AL 35815 
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First Book of Commodore & 
Electronic Computer Projects 


PEO Gan Ane GOL DOL TO 13 

40 Great Flight Simulator 
Adventures ............05 2 

40 More Great Flight Simulator 
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Machine Language for Beginners 
& the 2nd Book of Machine 
Language 


STATE-OF-THE-ART 
MAGNETIC MEDIA 


5%" DISKETTES 


122 Electronic Arts 
10 
+ In Factory Sealed 


Poly Packs of 10 


(YOU GET EVERYTHING BUT THE BOX) 
Prices are per Disk 


ae ‘Only 61.001 
Tho 100 File nly $10.95 plus $2.00 S&H 
WOO ERROR FREE — LIFETIME WARRANTY 
Min, order $25.00 Add’ 10% for loss than 50 
disketios, Shipping and Handling: $4.00 per 100 
disketies. Reduced shipping for larger quanti 
ties, C.D. add $4.00. Cash or certified check 


Contirental USA SEER con = 


| Precision Data Products 
PO wes esis 


pd 
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Commodore 
SERVICE 


%* Normally 48 Hour Turn-Around. 


* Special PlaChip ... $18.95 
* C64 Repair PCB Only. 38.95 
* 1541 Alignment .. 25.00 
* 1541 Repair 69.95 


Parts Included 
(Power Supply Extra) 
10 save C.0.D, charges - send unit and 
power supply with check or M.O. to: 
DIGITAL SOLUTIONS INC. 


1122 - Sth St. 
Altoona, PA 16601 


(814) 944-0405 


LINE ORIENTED 
WORD PROCESSOR FOR 
THE ENTIRE FAMILY 


+ Easy-to-use menu access to all word processor 
functions add, move locate, substitute 


eee 

+ Simple single ey access 0 yout printer's 
vanced functions alls, crores 
tupertript ete) 

+ Dictves to center oright july tex, contol 
te ipsing contro margins and mre. 


« Simple but powerful menu deen form control 
ets margins print fonts, pagesize ine width, 
page numbering and more. 

SSENO 510.95 [+125 for postage and handing! TO. 

SIMPLICITY - HOME SOFTWARE 


PW. 128/64 Dictionary ‘Word Processor. 


Mord Precesor also available of $14.95 (U.S cst go) 
VU «SY 


MAI) ORDERS: - - - 
CRYSTAL COMPUTER ING. 


CANADIAN DEALER ENOUI 


ANGRAMG, 
is. 


ric > wan} 
g i Well, it Po 28/6: 
OWith Pocket 128/or 64, you'll find all the features you”) 
canimagine...and then some, And Pocket 128/64 is so 
easy fo Use, you won't even nesd the reference guide, 
On:screen and in memory instructions will have you up 
efi you and running in'less than 30 minutes, even it you've never 
4 pocket, if Used o computer before. 


The price? It's as low as you'd expect for a line of 
software called ‘Pocket’. Shey Retail Price for the 64 
peak Pala ae ae Nea ay 
H Any of the 64 products may be upgraded to their 128 
We 2705/7) Nertion for $18.00 (U,S.) + $9.00 shipping and 
iy, handling, (Available to registered owners from Digital 
Solutions Inc. only.) 


Pocket Writer 128 or 64, Pocket Planner 128 or 64 and 
Pocket Filer 128 or 64... Solutions at sensible prices 
from Digital Solutions Inc. 


International & Distributor enquiries to: 
Yj iit a0 versie Unit 2 
eas ichmond Hill, Ontorio 
Yy Canada L4B 189 i 
“A ine. telephone (416) 731-8775 


Pocket Writer 128 and 64 are now available in French. 


HOW PEOPLE WITH COMMON 
INTERESTS FIND AN INTERESTING 
COMMON GROUND. 


Presenting CompuServe Forums. 
Where people from all over get 
together, without even leaving 
home. 

Now thanks to CompuServe 
Forums, computer owners are sharing 
common interests by talking to each other 
through their computer keyboards. Soft- 
ware users, computer enthusiasts, ham 
operators, french cooks, fire fighters, 
science fiction lovers and other special 
interest groups are already in touch, 
online. 

Because when you subscribe to 
CompuServe, you're able to reach people 
who want to talk about the things you do. 
As many people as you like. For as long 
as you like. Whenever you wish, 

Join a conversation already in 


progress or start one on your own. Ask 
questions, And get answers. 

All it takes is a modem, most any 
personal computer and CompuServe. 


Forum members across the country 
are as close as a local phone call. 

You can go online with just a local 
call in most major metropolitan areas. And 
normal usage fees for weekday nights and 
weekends are just 10¢ a minute. 


Of special interest to all Forum 
participants is software that’s FREE 
for the taking. 

Public domain software. For all 
sorts of activities, from games to business 
programs. And it’s just as easy to copy a 
piece of software as it is to participate in 
a Forum, 


Become a CompuServe subscriber and 
get a $25 Usage Credit to start you off. 

Becoming a subscriber is as easy as 
contacting your local computer dealer, Or 
you can call us and order direct. Suggested 
retail price is $39.95. 

And if you'd want more information 
about CompuServe, we'll be happy to send 
you a free brochure. Because with all that 
CompuServe offers—we think it’s in your 
best interest. 


CompuServe’ 


Information Services, PO Box 20212. 
'5000 Arlington Centre Bivd., Columbus, OH 43220 


800-848-8199 


In Ohio, call 614-457-0802 


AN HBR Block Company 


